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EDITORIAL 

I'll keep this snort. The Mid-Atlantic 
Computer Show was lots of fun. Let's hope 
for bigger and better next time. Our 
booth was a great success. I suspect we 
may gain as many as 100 new members as a 
result of our efforts. Thanks again, 
gang, for helping me person the booth. A 
particular thanks to Mark Crosby for 
showing up often and early, and for that 
great DEMO! ! ! 

The video cassettes of Wozniak and Jobs 
proved to be popular and will be available 
for your viewing at our next meeting after 
the session planned by Sue Zakar. 

We thought that since we are now into the 
fall season we should have a harvest 
issue. Enjoy. Keep the contributions, 
letters and articles coming! 

MINUTES 

EXECUTIVE BOARD MEETING 


Membership dues for Washington Apple Pi are 
$12.00 per calendar year. If you are 
interested in joining our club, call our 
number and leave your name and address. An 
application form will be mailed to you. Or 
if you prefer, write us at the above PO Box. 


EVENT QUEUE 


Washington Apple Pi meets on the 4th Saturday 
of each month at 9:30 AM at George Washington 
University, Building C, on G at 23rd Street, 
NW. The October meeting will be on the 25th. 
Call the club telephone during the week of 
the meeting for the agenda or any changes. 

The Executive Board meets on the 2nd 
Wednesday evening of each month. Members are 
welcome to attend. Call the President at 
229-3458 if you plan to come. 


The Executive Board meeting of September 
17, 1980 was held at the home of the 
President and was called to order at 
7:30PM. 

A report was submitted from the Membership 
Chairman with a design for a membership 
card (at a cost of 3 cents per member), 
and a proposal for the format of the 
Membership Directory. Both will be 
published in the newsletter before 
implementation. 

In other business A1 Weiner of the New 
Users SIG asked for volunteer speakers. 

It was decided that the Secretary would 
collect and catalog the mass of printed 
material being received by the club. The 
President displayed copies of "WHO WE 
ARE", a descriptive handout about the club 
to be distributed at the Mid-Atlantic 
Computer Show on September 18-21. 


NOVAPPLE meets on the 2nd Wednesday at 7:30 
PM at Computers Plus in Franconia, and on the 
4th Thursday at 7:30 PM at Computerland of 
Tysons Corner. See the NOVAPPLE minutes for 
details of The October meetings. 


CLASSIFIEDS 


FOR SALE: Anadex DP-8000-AP line printer 
with Apple parallel interface card. All 
cables and manuals included. Was bought 
brand new in Feb. 1980. Hardware valued 
at $1040, asking $900. Brian Dormer (301) 
831-8799 after 5:00PM. 

«*»«***»** 

ADVERTISERS PLEASE NOTE: Washington Apple 
Pi now has over 350 members. Our 
newsletter circulation is approximately 
800. Advertising rates are: Full Page, 
$30; Half Page, $15; Quarter Page, $10; 
Eighth page, $6. If you wish to 
advertise, please send your ad copy in 
black and white (no halftones) by the 
first of the month to the Editor, 
Washington Apple Pi, PO Box 34511, 
Washington, DC 20034. 

********** 


A motion was passed to continue group 
purchases from an established list of 
sources, to be approved by the Board. 
Several members have volunteered to help 
coordinate these purchases. 

The remainder of the meeting was spent 
with representatives of other nearby 
users' groups discussing proposals for 
mutually b.eneficial consolidation of 
resources. 


GENERAL MONTHLY MEETING 

The Washington Apple Pi meeting of 
September 1 7 > 1980 was called to order at 
9:30AM by the President. The membership 
was informed of the proposal currently 
being considered by the Executive Board 
for the merger of the local APPLE clubs. 

A lengthy discussion of the issue 
followed, providing much useful input for 
future Board discussions. 

A motion was again passed directing the 
Treasurer to provide a verbal report at 
each monthly meeting. Tne new 

coordinators of group purchases, Howard 
Lefkowitz and Ira Cotton, were introduced 
to the membership and they asked for 
specific items to acquire under this 
program. Joe Lipson of the Apple 
I Education Foundation informed the club of 

contd . 


M s , group' SDurpose. Two, University of 
ryland students requested assistance in 
a survey of personal computer owners. 
Peter Hirshberg of the Washington 

Children's Museum gave a slide 

presentation of their plans for a 
Communications exhibit and requested help 
from the membership. 

The meeting was adjourned to special 
interest group sessions at 10:45AM. 

Dana Schwartz, Secretrary 

SIG-NEUS 

The special interest group on games, 
SIGAMES, will hold its meeting at a 
location announced at and immediately 
following the Washington Apple Pi monthly 
meeting.. Tom Lucas will discuss "Writing 
Interactive Literature" . Also to be 
discussed are new ideas for future 
projects. (Al, Gass Chairman) 

The New Users SIG meets on the third 
Saturday of every month at 11:00 AM at 
Twinbrook Library (corner of Twinbrook 
Parkway and Viers Mill Road in Rockville) . 
Call 2*9-1980 for directions. 

Minutes of New Users SIG Meeting 


ASMSIG (Assembly Language Special Interest 
Group) gathered after Apple Pi's regular 
September meeting to welcome another eight 
courageous folk to the growing throng of 
assembly language users. 

The news at our gathering was meager only 
in quantity - not in importance. A new 
version (792?) of TED 11+ is available 
from: Apple Puget Sound Program Library 

Exchange, 304 Main Ave., South, Suite 300, 
Renton. WA 98055. The cost is less than 
$20 ana the documentation is superlative! 

Assembly language access to DOS commands 
was discussed, with examples and code, in 
the first issue of SOFTALK. Many (but not 
all) members received this issue free. 
Can someone bring copies to the next 
meeting? 

Stimulated by an idea from the NEWSIG 
group, we propose to implement a Question 
and Answer system somewhat differently. 
Members with assembly language questions 
are encouraged to submit these in writing. 
We'll auction these at our regular group 
meetings, and hopefully most will be 
answered . 


The New Users Group met at Twinbrook 
Library on August 16, 1980. 

Topics discussed at the meeting included 
modems. Although acoustic couplers are 
less expensive, the micromodems (DC Hayes, 
direct connection modem) can also provide 
automatic dialing and answering, and thus 
in contrast to an acoustic coupler is 
independent of your presence. Either 
should be capable of accessing the Club's 
proposed Bulletin Board. 

Programmer's Aid (a chip available for 
about $50) can provide music, do memory 
check, append, renumber, etc. This is 
provided in Integer Basic. Tool-kit (a 
package of utilities from Apple) for about 
$65 will provide considerable versatility 
for Applesoft. 

One of the utility disks from the Club 
allows for checking free space available 
on a disk at any time. Another nice 
utility provides each item in the catalog 
with a letter of the alphabet. One then 
need only type in the designated letter to 
load or run the program desired. 

There does not seem to be a substitute for 
the word PRINT in Integer Basic as there 
is in Applesoft, which uses the ? as a 
typing shortcut for the word PRINT. 

The commercially available programs, 
Super text and Supercheckbook, are used and 
liked by some new members. 

The members present expressed interest in 
having the programs on purchased library 
disks explained since most are not 
documented. Bob Peck offered and 
suggested that other club members might 
offer to share thir knowledge on how to 
use some of the particular disks at future 
meetings. A demonstration of printers was 
also suggested as a future topic. Bob 
Peck announced that Apple Pi is 
considering several proposals for 
conducting mini-courses in Basic, Machine 
Language, PASCAL, etc. 

The members adjourned to Al Weiner's home 
to view his system. He demonstrated use 
of his micromodem and various utility 
disks plus his adventure game. 

(Sara L. LaVilla) 


(Ever wonder what really happens as a 
result of CMP, CPY and CPX? Sandy 
Greenfarb found the answer. Look for it 
in the newsletter!) 


We found it difficult to discuss our 
common interests in the post-meeting 
environment. We all have interests in 
other SIG's, joint purchases and new disk 
volumes for sale. We consequently agreed 
(almost unanimously) to meet regularly 

:on the 3rd Wednesday evening of the 
month - 7:30 Oct. 22. 

:at the University of Maryland, Computer 
and Space Sciences Bldg, (room 3340) 
Our October gathering promises at least 
two features 

:RWTS Peeled, and a discussion of the 
difference between DOS 3.3 and 3.2 - 
Sandy Greenfarb 

:TED II for the APPLE II PLUS: relo- 
cating the Sweet Sixteen - Mike Hartman 


ASMSIG members will receive a reminder, 
map and a new membership roster. But all 
are welcome and encouraged to join our 
investigations into this arcane corner of 
the APPLE computer. 

(Jim Rose) 



The Washington Apple Pi ABBS is available 
to members. Use a Bell 103 compatible 
modem (i.e., D.C. HAYES, NOVATION, etc.), 
full duplex, ASCII. A password is 

required and can be obtained by sending a 
postcard with your name, address, pnone 
no. and WAP membership no. to: WAP 

ABBS, 9800 River Road, Potomac, MD 20854. 
If you had a password assigned previously, 
it is still valid. 
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NOVflPPLE 


Minutes for September 10, 1980 

The meeting was opened at 7:30 PM by the 
President. It was announced that anyone 

not paying dues by the last meeting in 
September would be dropped from the rolls 
and would no longer receive the Apple Pi. 
The next order of business was the 
nomination of new officers for 1981. 
These officers will begin their duties in 
November. The following persons were 

nominated at this meeting: 

Secretary--— — -No Nominations 
Vice President — Steve Plusch 

President Nick Cirillo 

Theron Fuller 

No further nominations were made at this 
meeting. 

The program was presented by Mark Spahn. 

He presented the second part of a two-part 
program on hi-res graphics. Before he 
could get into the graphics portion of his 
talk a discussion took place on the 
differences between memory locations for 
Applesoft and Integer. . Everyone 

participated in the discussion and learned 
a great deal about the internal memory. 
Mark then showed how simple graphics could 
be generated and demonstrated a program 
which used an equation to generate a 
spiral type picture. 

Minutes for September 25, 1980 

The meeting was opened at 7:^2 PM by the 
President. The first order of business 
was to reopen the nominations for the 
officers. In addition to the officer 
positions for which persons were nominated 
at the prevous meeting an additional 

office of Treasurer was opened for 
nomination. Nick Cirillo volunteered to 
remain as Treasurer if he was not elected 
President, a post for which he was 
nominated previously. Everyone present 
agreed to change the previous nomination 
from President to Treasurer. Although 
requests were made for additional 

nominations none were forthcoming. A 
motion was made to change the present 
check signature system from a three 
signature system to a one signature 

system. Tne motion was seconded but 
modified during the discussion to require 
the Treasurer to look into the matter 
including by-laws and make a 

recommendation back to the members. A 
discussion was held on member 

responsibility which promoted further 
discussion on the purpose of the club and 
the need to examine wnere we are going in 
the near future. Some of the suggestions 
are listed below: 

1 . Members should wear a name tag so we 
can identify each other at meetings. 

2. A list of members should be generated 
which gives enough information to let 
members know who has similar interest but 
does not have enough data to help 
criminals, should it fall into the wrong 
hands. 

3. A software library should be set up 
for NOVAPPLE members . Mike Thomas and 


Robert Steele volunteered to be keepers of 
the library. 

4. It was the concensus of the people 
present that the club has grown large 
enough so that we need to look at a new 
meeting place and examine the desirability 
of changing the meeting day as well. A 
straw poll indicated that about half of 
the members would like to change the 
meeting to Saturday if a suitable place 
can be found. A committee will look into 
what can be done. 

5. The members feel that a question and 
answer session should take place for 15 
minutes at each meeting to answer 
questions of both new and old members as 
they arise. 

Due to the length of the discussion the 
Adventurefest which was scheduled was 
canceled. It will be scheduled at a later 
date. 


At the next meeting which will be at 
Computers Plus on October 8 we will have a 
discussion and demonstration of the Z-60 
card by Phil Eastman. On October 23, at 
Computerland of Tysons, we will have a 
session devoted to Word Processors. If 
you are interested in either of these 
topics please come out and Join us. Don't 
forget we will begin the election of your 
new officers as well. Be sure to bring 
your nominations or volunteer your 
services. It is the only way our club can 
remain strong. 

Gerald Eskelund, Secretary 


ftmlhsaatarp Saftoiia 
6*14 Derbyshire Drive 
New Orleans, LA 70126 


504 / 246 - 81)38 


504/246-7937 

September 16 , 1980 


Bernard Urban 
Washington Apple Pie 
P.0. Box 34511 
Washington, DC 20034 

Dear Hr. Urban, 


X enjoy reading your publication. 
Interested In running for your seebera. 


Here are 2 routines you eight be 


The first Is for those without a disk utility prograe to nodify 3.3 DOS to 
prevent zeroing of $EOOO. This Is needed only by Language Card owners and will 
allow booting of 3*3 without the need to reload either Integer or Applesoft II 
Into the card. 


The eodlfled DOS should only be used for booting after Integer or Applesoft 
XI has been loaded Into the oard. The user should also have made no changes to 
any area of the Langauge Card SAN. 

The prograe was written with the S-C Asseebler IX and constructed In a way 
to be easily understood by the novice. Bach step is explained and no Indireet 
indexing la used Into the I0B table, A shorter method would be to write the 
overwritten byte back to the Language Card after a second boot. That lsn*t as 
such fun. 

The second prograe la for the Z-80 Softcard owner. No sethod was provided 
for returning to DOS or Pascal without turning off the Apple. This prograe wili 
do a cold boot. It was written by Dave Hughes the day ho received his Softoard. 
Dave also la the author of LCK0D for Pascal. 

If the uaer types BOOT and changes his mind he can hit RESET and reealn In 
CP/H. Pressing any key will boot DOS or Pascal. 

Hope you find the programs of use. 


George McClelland 
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1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 


SOUTHEASTERN SOFTWARE 

3.3 DOS ONLY MtIMimmil! 

48 K LANGUAGE SYSTEM ONLY 

NO ERROR CHECKING ON READ OR WRITE ! 1 1 1 ! 1 ! ! 1!! 


PROGRAM TO MODIFY 3.3 DOS 
TO PREVENT ZEROING OF $E000 
SO THAT AS II OR IB WILL NOT 
HAVE TO BE BLOADED WHEN BOOTING 
WITH A MODIFIED DISKETTE 


RWTS 

.EQ 

$3D9 

VOL 

.EQ 

$B7EB 

TRACK 

.EQ 

$B7EC 

SECTOR 

.EQ 

$B7ED 

ERR 

.EQ 

$B7F5 

BUFFLO 

.EQ 

$B7F0 

IOCMD 

.EQ 

$B7F4 

BUFBYT 

• 

.EQ 

$96D3 

• 

.OR 

$300 


THIS IS FIRST BYTE IN BUFFER TO BE CHANGED TO A NOP 


1290 * 

SET UP BUFFER AT $9600 


1300 * 




0300- A9 00 1310 

LDA #0 

LO 

BYTE OF BUFFER 

0302- 8D FO B7 1320 

STA BUFFLO 



0305- A9 96 1330 

LDA #$96 

HI 

BYTE OF BUFFER 

0307- 8D FI B7 1340 

STA BUFFLO+1 



1350 • 




1360 * 

SET VOL. # TO WILD CARD 

(ZERO) 


030A- A9 00 
030C- 8D EB B7 


030F- A9 00 
0311- 8D F5 B7 


0314- A9 00 
0316- 8D EC B7 
0319- A9 09 
031B- 8D ED B7 


03 IE- A9 01 
0320- 8D F4 B7 


1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 


LDA #0 
STA VOL 

• CLEAR ERROR FLAG 

LDA #0 
STA ERR 

• SELECT TRACK, SECTOR - IN THIS CASE TRACK 0, SECTOR 9 


LDA #0 
STA TRACK 
LDA #9 
STA SECTOR 


TRACK ZERO 
SECTOR 9 


• SET 10 COMMAND TO DO A READ 

« 

LDA #1 READ COMMAND 

STA IOCMD 

• EXECUTE THE READ 

» 
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0323- A9 

B7 


1600 



LDA 

#$B7 

HI BYTE OF IOB TABLE 

0325- AO 

E8 


1610 



LDY 

**E8 

LO BYTE OF IOB TABLE 

0327- 20 

D9 

03 

1620 



JSR 

RWTS 

DO IT 




1630 

ft 








1640 

ft 

MODIFY 

THE 

BYTES IN 

THE BUFFER TO NOP’S 




1650 

ft 





032A- A9 

EA 


1660 



LDA 

#$ EA 

NOP 

032C- 8D 

D3 

96 

1670 



STA 

BUFBYT 


032F- 8D 

D4 

96 

1680 



STA 

BUFBYT+1 


0332- 8D 

D5 

96 

1690 



STA 

BUFBYT+2 





1700 

ft 








1710 

ft 

SET 10 

COMMAND TO EXECUTE A WRITE 




1720 

ft 





0335- A9 

02 


1730 



LDA 

#2 

WRITE COMMAND 

0337- 8D 

F4 

B7 

1740 



STA 

IOCMD 



033A- A9 B7 
033C- AO E8 
033E- 20 D9 03 
0341- 60 


1750 * 

1760 » WRITE THE BUFFER BACK TO THE DISK WITH THE CHANGES TO DOS TRACK 0, SECTOR 9 
1770 * 

1780 LDA #$B7 HI BYTE OF IOB TABLE 

1790 LDY #$E8 LO BYTE OF IOB TABLE 

1800 JSR RWTS DO IT 

1810 RTS DONE 


SYMBOL TABLE 


RWTS 03D9 VOL B7EB 
SECTOR B7ED ERR B7F5 
IOCMD B7F4 BUFBYT 96D3 


TRACK B7EC 
BUFFLO B7F0 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 


BOOT PROGRAM 

written by: 

DAVID HUGHES 


a$vec 

z$cpu 

boot 

bdos 

or 

If 


f 

jmp 


home 


equ 

equ 

equ 

equ 

equ 

equ 

org 


0f3d0h 

0f3deh 

0faa6h 

0005h 

Odh 

Oah 

lOOh 


main 

HOME routine 

mvi e,1bh 
mvi c,2 
call bdos 
mvi e,2ah 
mvi c,2 
call bdos 
ret 


27: 

28 : 

29: 

30 : 

31: 

32 : 

33: 

34: 

35: 

36: 

37: 

38 : 

39: 

40: 

41: 

42: 

43: 

44: 

45: 


Start of main program 


» 

main 


msg 


; a message all Mothers appreciate 


Print message 

Get Console character 


call home 

lxi d,msg 
mvi c,9 
call bdos 

mvi c,1 
call bdos 

lxi h,boot 

shld a$vec 

lhld z$cpu 

mov m,a ; Jump to 6502 

db cr,lf ,lf,lf ,lf, * Southeastern Software Cold Boot* 

db cr, If, If, ‘Insert a Pascal, BASICS, or DOS 1 

db cr, If, ‘system diskette in the boot dirve' 
db cr,lf , ’and press any key to boot it 1 

db cr, If, If, If, if, » > $» 
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DOS 3.3 (FIRST 
IMPRESSIONS) 

by SANDY GREENFARB 

When I opened my DOS 3.3 pack, I found two 
diskettes, two ROMs, a ROM extractor, a 
sheet of *16 sector' labels (little red 
apples with 16 in each center), and the 
various and sundry papers that always 
accompany a new purchase. First I 
reviewed the enclosed manual, naturally 
entitled "The DOS Manual". Owners of the 
DOS 3.2 manual will observe that with the 
exception of four new appendices, changing 
all "13 sector" references to "16 sector" 
references and some other minor updates 
and changes, that the two manuals are 
virtually identical, page by page. 

Needless to say, the first new appendix, 
Appendix H. describes how to update the 
system. I took the extractor and removed 
the specified PROMs from my disk 
controller card and proceeded to install 
the new ones. The pins on one PROM were 
spread too wide and I had to (very 
careful y) bend them into place. After a 
little heart failure when I almost bent a 
pin, the PROMs were installed. Next I 
returned the controller card to the APPLE 
and turned on the power. 

Well, with the Autostart feature, I forgot 
the drive would self-start and, lo and 
behold, I learned that I could no longer 
boot up the system with a 13-sector 
diskette. Oh well, back to the manual. 
(Note: There are several pages on PASCAL 
systems that I will not describe, as I do 
not have the Language Board and can not 
properly evaluate them. However, from 
reading them, my "uneducated" opinion is 
that PASCAL owners will want to upgrade to 
3.30 From now on. it would take a DOS 3.3 
diskette to boot DOS. 


So what about all my 13-sector diskettes? 
As I said, the system came with two 
diskettes. The first was a System Master, 
containing the usual group of 

demonstrations and utilities, including 
some new ones which I will describe later. 
The second, DOS 3.3 Basics, is described 
in Appendix I. Boot the system with this 
diskette and in about five seconds the 
screen will say "INSERT YOUR 13-SECTOR 
DISKETTE AND PRESS RETURN". I tried this 
with a couple of 13-sector diskettes and 
relieved a lot of anxieties; they would 
all still work on my system. This 
included both my standard DOS diskettes as 
well as my non-standard ones, the type 
that contain their own version of DOS so 
that they can't be copied. From now on, 
one new step was necessary before booting 
a 13-sector diskette. I would have to 
boot the DOS 3*3 Basics diskette first. 
Once in either 13- or 16-sector mode, the 
system would expect the same sector 
configuration until it was rebooted . On a 
boot from "PR#6" it always would expect a 
16-sector configuration. (When I examined 
the System Master diskette, I decided to 
experiment with one program called BOOTI3. 
BRUN BOOT 13 and your system will also be 
readied to boot a 13-sector diskette. 
This was not covered in the manual and I 
guess that it was expected to be obvious 
to users.) 


A side note for Language Board owners: 
according to the manual, the DOS 3.3 
System Master loads both Basics into your 
system upon boot. Depending on which is 
in ROM, the other will be loaded into RAM 
on your Language Card. A procedure is 
described to set any blank 3o diskette to 
do the same. 

At this point, please note that the rest 
of the article deals exclusively with 
16-sector diskettes unless 13-sector is 
specifically mentioned. 

The new utilities are excellent. A 
diskette copy program is provided in two 
flavors, Integer and Applesoft. It 
appears to be designed to use 
single-drive , dual-drive , or 

dual-controller as designated by the user. 

I can't speak for the latter two options, 
but it works fine on my single-drive 
system. 

FID (File Developer) is the subject of 
Appendix J. Six pages are devoted to this 
fantastic utility. Not only does it allow 
you to easily catalog, copy, delete, lock 
and unlock all types of DOS files, it also 
lets you copy all types of files from one 
diskette to another on a single or 

multi-drive configuration, all with simple 
keystrokes. The "wild card" option 
provides a capability to specify file 
names that meet certain characteristics. 
Specifying a file name of "=", a single 
equal sign, means that all files on the 
source diskette qualify for what you are 
doing; "G.=" would mean all files that 
began with "G.". These are just a sample 
of some of the possiblities. This utility 
alone is almost worth the price of the 
system . 

The final new appendix. Appendix K is 
entitled "Using the MUFFIN Program" . No 
mention is made how Apple, Inc. came up 
with this name/acronym, but this is the 
program that allows the conversion or 
copying from 13-sector to 1 6-sector 
diskettes. BRUN this program and you will 
be asked to specify your slots and drives 
for your source diskette, 13-SECTOR, and 
your destination diskette, 16-S&CT0R. 

Then it will ask for your filename. You 
may specify actual file names or use the 
"wild card" options as described in FID. 

If you specify a "wild card" option, you 
will also be asked if you desire 

- prompting. This gives the option of 

saying yes or no to each file name as it 
is presented on the screen. Unlike the 
old "UPDATE 3.2" program which updated 
diskettes from DOS 3«0 or 3.1. this update 
to 16-sector does require both a source 
and destination diskette. Of course, a 
13-sector diskette can be re-initialized 
to 16-sector, but any information on the 
diskette would be lost. I honestly do not 
know if it is possible to update a 

diskette to itself without losing the 
information on it. I do know that Apple 
did not provide any utility to do this 
"thing" on the System Master. I have 
already converted ten diskettes with no 
problem whatsoever. However, I have found 
this process very tedious on a 
single-drive system and intend to borrow 
another drive from a friend before doing 
any more . The constant switching of 

diskettes, one in and out and then the 
other in and out for each program, becomes 
very boring. Beg, borrow or steal a 
drive, but most definitely use two drives contd. 


for your 13 to 16 conversion. 

Incidentally, INIT now takes about 30 
seconds instead of the old several 
minutes. 

Except for the difference in number of 
sectors, DOS 3-3 appears to function 
identically to 3 . 2 ; in fact, even the 
page-3 hooks are Identical. I'm sure some 
differences must exist, but I haven't 
observed any yet. Dos 3.3 also occupies 
exactly the same amount of memory as 3 . 2 . 
Programs that internally use DOS. may or 
may not work properly. I've found that if 
they use the page-3 hooks, they stand a 
good chance of working. The main 
conversion problem that appears to occur 
is in the number of sectors. Those 
rograms that look for a max sector number 
0C (decimal 12) should be changed to $0F 
decimal 15). I am only partially into my 
conversions, but I still have a 
essimistic attitude as to what will 
appen when I test any programs that 
bggass the page-3 hooks and go directly to 

Knowing what I know now. I would still 
willingly purchase the DOS 3.3 package. 
However, I do have mixed feelings. I know 
that some of my program conversions will 
be very frustrating, and I do not like the 
extra step that has become necessary for 
booting "non-standard" diskettes. By the 
time I convert my relatively large 
diskette library, I will surely be 

g rateful for the Increased diskette space, 
ut does that justify the purchase? I 
think not. I believe my gain will be 
realized some time in the future when I go 
to buy some new programs and find that 
they are only sold on 16-sector diskettes. 
DOS 3*3 is the new "state-of-the-art" for 
APPLE II and I can only find it logical 
that software suppliers will come to the 
same realization. 


HOU TO CONVERT FROM 

DOS 3.3 TO 3.2 

by SANDY GREENFARB 

Granted that what I am describing is 
backwards, but I found myself in the 
situation where I needed a program on a 
13 -sector diskette that was only on a DOS 
3.3 16-sector diskette. Not having an 
unlimited supply of diskettes, I had 
already initialized a diskette for 
16-sector that had contained a program 
that I needed to use with other 13 -sector 
programs. Thus I was placed in a 
situtation where I needed to convert 
backwards. What I came up with is 
"extreme brute force", but it does work. 

1. Boot the system into DOS 3*2 mode. 

2. BSAVE the DOS to a 13-sector diskette. 

3. Boot the system into DOS 3*3 mode. 

4. Using the MUFFIN program, transfer DOS 
to a 16-sector diskette. 

5. While in 3.3 mode, load the program you 
wish to convert to 3-2. 

6. Now load the DOS 3*2 image, taking care 
not to overwrite your program nor 

DOS 3-3. 

7. Execute the Monitor move utility, 
moving the DOS 3*2 image where It 
belongs. 

At this stage, it is just as though you 
had booted with 3* 2. and you can save your 
program on a 3.2 diskette. There may be 
other solutions, but I dont't expect to do 
this over often, and it works. 

(Editor's Note: NIFFUM, a backwards MUFFIN 
that runs on DOS 3.2 with new ROMs is 
available on a WAP Library Disk.) 


PROPOSED MEMBERSHIP 
DIRECTORY 

TOM JONES, Membership Chairman 


On the fourth Saturday of each month, 100 or so APPLE enthusiasts gather at George 
Washington University for the Washington Apple Pi club meeting. At the meeting, I look 
forward to picking up the club's current newsletter, the newest release of the club's 
program library dlsk(s), and listening to the meeting's speakers. But most of all, I 
enjoy the communication with other APPLE owners, talking with them about my 
accomplishments, frustrations and problems, and finding that many of them have solutions 
to my problems and ways to improve my programs. 

We share our knowledge and everyone benefits. Our club is built around communicating 
with fellow members, whether through our newsletter, the speakers at our meetings, or 
just chatting with other meeting attendees. What can we do to improve our club 
communications? I feel that an effective way is to create a Membership Directory. 

As Membership Chairman, I have taken on the task of producing the first Directory. 
Below is the print format that I propose for the Directory. I also forsee that it would 
contain two listings of our members, one by last name, the other by zipcode. Of course, 
any member who has not given permission for his name to be released will not appear in 
the Directory. Your comments are welcome. 

WASHINGTON APPLE PI MEMBERSHIP DIRECTORY 


LAST NAME 

FIRST NAME— 

CITY 

ST 

-ZIP- 

JONES 

THOMAS E. 

ROCKVILLE 

MD 

20853 

PECK 

ROBERT 

ROCKVILLE 

MD 

20852 

SCHWARTZ 

DANA J. 

LAUREL 

MD 

20810 

URBAN 

BERNARD 

BETHESDA 

MD 

20016 

WASSERSTROM 

RICHARD S. 

MCLEAN 

VA 

22101 


PHONE— 




TUESDAY NIGHT 
FOOTBALL-fl review 

BY BILL SCHIILTHEIS 


THE STEELERS BREAK FROM THE HUDDLE 
BRADSHAW BARKS THE SIGNALS 
AND HERE'S THE PLAY*.. 

BRADSHAW IS FADING BACK 
HE'S GETTING A HARD RUSH 
DELAYED HAND OFF TO FRANCO 
FRANCO'S ACROSS THE 25 
AT THE 30 
CREAMED AT THE 33 
TACKLE BY BRAZILE 


At the end of each Quarter the prodram displays the stats 
in the usual format with yards rushinsl? yards passing? time 
of possession? etc. for each side. The Steelers are pretty 
doodf so you will be behind a lot. But every so often 
Stabler seems to det a hot hand? and Houston leads both in 
points and statistics. You midht even win! 

Tuesday Nidht Football is available at The Prodram Store 
which is at Van Ness and Wisconsin in Northwest D.C. The 
Prodram Store specializes in software for the TRS-80? but is 
buildins up a decent stock of prodrams for the Apple. 


Periodical Reviews 

BY BIU. SCH ULTHE Z 3 


♦♦FIRST DOWN PITTSBURGH^ 


DYler Vol. V No. 9 (SEP 80) 


Is it Monday Nidht Football on ABC television? Nor it's 
Tuesday Nidht Football on your Apple! If you are a pro 
football fan* you will love Tuesday Nidht Football. The 
prodram captures the color and feel of pro football with 
soundr text* and dr aphics in a way that makes other computer 
football dames seem pale in comparison. Item. The kickind 
dame is simulated in 3-D perspective low-res draphics. Item. 
You see both a diadram of the playind field and det a 
play-by-play description of the action in text like the 
sample above. Item. Clever sound effects. Item. The dame 
simulates momentum which can chande after a bid play* Item. 
The dame has injuries and substitutions* And would you 
believe a halftime show featurind the University of Houston 
Marchind Dots? 

Only a dedicated pro football fanatic could have packed 
so much into one Applesoft prodram. The prodram is published 
by Shoestrind Software in Houston? Texas. So it should be no 
surprise that you call the plays for the Houston Oilers 
playind adainst the hated Pittsburdh Steelers. (The 
instruction book tells you how to chande the names of the 
players so you can coach the Redskins adainst the Cowboys or 
any other set of players which captures your fancy. > 

The dame comes on disk. Actually the disk includes both 
ROM and RAM versions of two prodrams? KICKING PRACTICE and 
TUESDAY NIGHT FOOTBALL. It even includes a copy of 
Applesoft. The kickind practice dame lets you practice your 
puntind and Place kickind (I'm not kiddind) before you start 
the real dame. Durind practice the field is dreen and the 
stands are drey. When the dame starts... I won't spoil the 
surprise by tellind you. 

As with most computer football dames? you can set the 
lendth of the Quarters. If you chose 15 minute Quarters? the 
dame will last Just about as lond as a real pro dame on the 
tube. You cannot save a dame and come back to it? but you 
can have up to three time outs per half to control the clock? 
answer the phone? or det a brew. 

Bependind on whether you have the ball? you pick the 
offensive or defensive plays from a list. Accordind to the 
documentation? the computer promises not to peek at your 
selection. The scoreboard on the screen has a 30 second 
timer which counts down while you are ponder ind your 
selection. Take too lond and its a 5 yard penatly for delay 
of dame. The list of offensive plays includes a dood variety 
of runnind and passind plays. The defensive list as shorter 
and audments the usual ones (STANDARD? GOAL LINE? NICKEL? and 
BLITZ with unusual choices like GAMBLING ( try to force a 
fumble) and BUTKUS (try to dismember the Quarterback. > 

And there are penalties? often at the worst possible 
time. If the penalty is adainst the opposition? the computer 
explains your options in text and lets you accept or decline. 
If the penalty is adainst you? the computer describes your 
infraction? names the duilty player and lets Pittsburdh make 
the choice. 0 


The thefte of the issue is "homebrewing". It 
is almost exclusively aimed at hardware 
construction enthusiasts. Only a few items 
of possible Apple interest? and those are 
for assembler and Pascal prodr alters* Short 
items on pases 98 and 114 describe 
technioues for taking indirect subroutine 
calls in 6502 assembly language. A short 
item on page 324 (yes its a (hick issue) 
describes a UCSD Pascal compilation unit 
which provides PEEK and POKE functions. 
Other articles include* 

p-270 EXPLORING BALLISTICS WITH YOUR 
COMPUTER by Robert U. Jenks 

Describes a program which calculates 
the trajectory of a bullet given cartridge 
description? atmospheric parameters? muzzle 
velocity? etc. Might be useful to gun nuts. 

In North Star BASIC and would need some 
rewriting to run on the Apple. 

p-76 DISSECTING THE TI SPEAK & SPELL by 
Michael A. Rigsby 

Did you ever have the urge to dismember 
an electronic toy and figure out how it 
works? If so you might fi/id this article 
interesting. The author was able to get the 
insides out of the TI "Speak 6 Spell" toy. 

He found some interesting Ic's but was not 
able to figure out how they work together. 

p-106 MACHINE PROBLEM SOLVING? Part It Trial 
and Error Search? A Mechanical Plan to Save 
the Missionaries by Peter U. Frey 

Describes how to solve problems by 

searching and backtracking using the 
familiar missionaries and cannibals problem 
as an example. The example program is in 
TRS-BO BASIC. 

GlJ (jb (j5 C"5 
(jb Gi$ db G& G& 

(3& G& G& (jb 

G& (jb db db d& 



AIR TRAFFIC 



BY BILL SCHULTHEIS 


A REVIEW 


Air Traffic Controller is an • utstanding 
real-time simulation game f^om Creative 
Computing Software. The simulation puts 
you in charge of a 15 by 24 mile rectangle 
of air space, containing two airports and 
two navaids and crossed by five air 
corridors (ten entry and exit points). 
During the simulation 26 aircraft pass 
through vour air space, crossing, taxing 
off and landing. Your job is to vector 
them to their proper destinations, 

maintaining the required horizontal and 
vertical separation. The program is in 
machine language, requires just 16K and 
should run on any APPLE. 


The air space is represented by a grid of 
dots in text mode with the symbols 

and showing the locations of 

navaids and airports: 


0 


4 , 


8 


* 


1 


Ql 


* 


AO 


% 


Entry and exit points appear as digits 
along the border of the rectangle. The 
current position of each plane in the air 
space appears as a letter digit 
combination indicating its call sign and 
current altitude. Airplane positions move 
horizontally, vertically, or diagonally 
every 15 seconds, giving a very credible 
simulation of a computer-controlled radar 
display. 


challenging. 

The program comes on a cassette for a mere 
$9.95. Since it is in machine language, 
you load it from the monitor. The package 
includes instructions for Integer Basic 
and APPLE 11+ . My copy loaded on the 
first try. Disk owners can save the 
program on disk by returning to DOS and 
using BSAVE. 

So if you think you can handle the 
pressure and the tension, buy a copy of 
the program and get an idea of what it is 
like to be an Air Traffic Controller! 



You select the duration of each game which 
can last from 10 to 99 minutes. All 26 
airplanes appear at random times during 
the game, so it gets harder as the times 
get shorter. Even at durations of over an 
hour situations and conflicts will occur 
which are challenging for a beginner. 
Times below 30 minutes will give an expert 
sweaty palms. This is a game which will 
never be so easy that it will not be ^ 



A REVIEW OF LIBRARY 
DISK VOLUME 9 - 
EDUCATIONAL I 

by LES STUBBS 

The review of Library Disk 15 by Brian 
Dormer (August 1 980 issue) was informative 
and well presented. I keyed in his review 
into a new HELLO program which now 
presents a brief description of each 
program when 1 boot the disk. Now, 1 have 
a nice record of what each program does 
right on the diskette. I found this so 
helpful that 1 started writing 

descriptions for other Library Disks that 
I have, the first one being Volume 9 - 

Educational I. 1 have tried to follow the 
same format in which Brian presented his 
review of Volume 15. As in Brian’s 
review, the rating scale is as follows: 

***** Superb 

**** Better than average 

*** Good 

** OK 

* Forget it . 


COLOR MATH - Lo-res multiple colored math 
problems are presented. Multipli- cation, 
division, addition and subtraction 
problems are included. A "HAPPY" face is 
shown if the answer is correct. A ’'SAD” 
face is shown for incorrect answers. 
Faults: Problem is repeated when an 

incorrect answer is given and this 
continues until the correct answer is 
given. This could be frustrating for a 
child who does not know the correct 
answer. Rating: *** 


CONVENTIONS - Shows the programming 
conventions used on APPLE CORE submitted 
programs . Some good programming 
techniques exist here. A must for 
beginner programmers to review. Rating: 


ECHOCARDIOGRAPH - Calculates factors of 
blood flow using TEICHHOLZ'S modifications 
to Dodge’s formula. Text oriented. Good, 
if you know something about medicine. 
Rating: #* 

FLASH CARD - Allows you to practice your 
addition, subtraction, multiplication 
skills. Answers must be given in a 
specific time period. Time period 
decreases automatically as you begin 
answering correctly. Text oriented. 
Rating: *** 

FLASH CODE - A Morse Code training aid. 
Uses speakers and flashes the letter being 
sounded at the same time. You can change 
the speed. Faults: Only random letters 
are presented. Rating: ** 

INTGER INSTRUCTION SET - Displays the 
tokens for Integer Basic. This is nice to 
have but can be found in many 

publications. Rating: * 

MATH TUTOR - Practice your addition, 

subtraction, multiplication and division 
using this program. Text oriented. Also 
has nice messages when you give answers. 
T've i?«en better, though. Rating: ** 

MORSE CW - Excellent Morse Code learning 


tool. Three ways to learn: one letter at 
a time, a complete message, or random 
letters. Speaker sound is best I’ve 
heard. Rating: **** 

MORSE TRAINER - Another Morse Code 

training aid. Advantage of tnis one is 
that it will not display the characters 
until test is completed. has three 

options: a message, random letters (both 
of which display characters as they are 
sounded) , and a test of random letters 
(which are not displayed until the end). 
Rating: *** 

NAME STATES - Practice naming the 50 

states (spelled correctly). Text 

oriented. Keeps a count of the number you 
have named, and allows you to see the 
names you have correctly given. Rating: 


NORTHERN CONSTELLATIONS - A good program 
that explains the stars briefly and also 
shows the Northern Constellations based on 
your input of a month, day, and hour. 
Display uses hi-res graphics. Rating: 


QUIZBUILD - This programs allows you to 
build a text file of data to be used later 
by a program called ’’QUIZ” (which I do not 
have) . Instructions on how to build these 
text files via input from keyboard are 
good. Maybe someone has the "QUIZ’’ 

program. Rating: ** 

(Editor’s Note: I have "QUIZ" on Vol. 5B 
of the SF APPLE CORE library.) 

SIMULATION-6502 - Want to learn 6502 
Assembler? This program may help. It 
allows you to graphically see the data 
bus, registers, accumulators and the 

P rogram counter. It lets you enter 
nstructions and then watch them being 
executed one at a time. Rating: ***** 

STATES/ CAPITALS - Do you know the capital 
of each state? This program can help 

anyone who is learning them. Faults: If 

answer is wrong, it keeps asking you for 
the correct answer with no way to get out. 
Rating: *** 

TITRATION - Chemistry, anyone? The object 
of this program is to normalize an acid by 
neutralizing it with an amount of base. 
Low-res. Rating: *** 

TOP-DOWN PROGRAMMING - Basically the same 
conventions are presented here as in the 

program "CONVENTIONS.". This one does 

present a bit more. You should review 
this program, at least once. Rating: ** 

TYPING PRACTICE: Allows you to practice 
your typing. Has four options: Single 

letters, 2-letter words, 3-letter words, 
and Words of random length. The speaker 
sounds different tones for correct and 
incorrect replies. A score is given at 
the end. Rating: *** 

Well, that's it. I hope to see more such 
reviews from other members. 


(Editor's Note: Les is a resident of 
Harbor City. California, and a member of 
Washington Apple Pi. Thanks, Les, for a 
great review!) 
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THE PEOPLE I SfiU 
AT THE COMPUTER 
SHOU 

by GENEVII URBAN 

The Mid-Atlantic Computer Show at the DC 
Armory last month was full of new and 
interesting technical displays, but the 
PEOPLE who attended the show (at least, 
those that came by our club booth) were 
just as interesting to me as the 

technology. Here are some of the PEOPLE I 
saw: 

There were WAP members who stopped by to 
say hello, order library disks, or just to 
attach a face to the mailing label. . .There 
were people who were in the market for a 
personal computer but could not decide 
which one to buy (guess which direction I 
sent them in)... There were people who 
wanted to ’'blow off steam" , not about 
computers or Washington Apple Pi, but 
about The American Medical 

Association. . .There were kids, tons of 
them, all seeming to feel perfectly at 
ease in this wonderful world of 

computers. . .There were people who didn’t 
know what an APPLE or an APPLE PI 

is... There was an amiable Armory police 
guard who stopped by each day for one of 
our apples (eating) who had never' heard of 
an APPLE computer and who said, when I 
showed him the computer, "Yea, that's the 
typewriter but where's the rest of 
it?"... There were former WAP members from 
the "old days" when we were just getting 
started who nad drifted away and wanted to 
return. . .There were girls on roller skates 
wearing short shorts. . .There were "paper 
collectors" who took any free literature 
and chucked it in their plastic Computer 
Store bag... There were even a few people 
who took "freebies" that really weren't 
free... There were people who were 

astonished to see that The Woz is not much 
more than a teenager .. .There were people 
who thought it was just great that we were 
giving away delicious apples. . .There were 
people who just wanted to talk at great 
length about programming the APPLE... 
There were people who weren't people at 
all, but robots walking around or playing 
rock music. . .There were teachers looking 
for people to help them teach about the 
APPLE. . .There were people from the 

Children' s Museum who wanted assistance on 
the APPLE unit in their Communications 
Exhibit. . .There were people looking for an 
APPLE III... There were people from all 
over who thought our DEMO program 
(produced by our own Mark Crosby) was "the 
greatest" ... 

There were these and many more, and all in 
all the PEOPLE I saw at the Show lightened 
my heart and tickled my fancy. And I came 
away from the show feeling good that I had 
"womaned" our booth for a few hours. 


STOCK MARKET UTILITIES 


3 STOCK MARKET PROGRAMS ON DISK 

STK.l t37 Sectors) provides complete utilities for manual 
entry of stock data. 

FEATURES: names stored alphabetically by exchange, easy 

addition and deletion of names, automatic prompting and 
extensive error trapping for data entry (date, volume, 
price), numerous entry points for data correction, all data 
displayed prior to updating stock files with further option 
for data correction, option for inputting historical data 
to a single data file, display individual stock files from 
disk, option to reduce files to last 260 entries for 
high-res graphics. 

DATA CORRECTER (14 Sectors) used to correct and rewrite 
stock data files. 

FEATURES: option for general data correction - correct any 
entry, option for stock splits - all prices and volumes 
prior to split scaled by split ratio to provide continuous 
momentum and price curves. 

EVAL (20 Sectors) provides comparative evaluation of stock 
performance. 

FEATURES : synchronizes NYSE index ave with first stock 

entry, option to evaluate all stocks automatically or just 
one, simultaneous high-res display of momentum, price, and 
price relative to NYSE index, auto scaling graphics, 
numerical figure of merit for performance relative to NYSE 
index ave. 

Much more! Programs written by H. S. PILLOFF 
Requires Apple II, ROM Applesoft, 48K and Disk 


Price $39.95 
Md. residents add SI 

Hfill SCIENTIFIC 
13507 PENDLETON ST. 
Oxon Hill, MD. 20022 

TEL (301) 292-3100 


Master Charge 



90 day warranty 



12503 Kings Lake Dr. 
Reston, VA 22091 
(703) 620-2994 


CEflTRDniCS 

MODEL 730-1 
PRINTER 

Used - $450 

. Parallel interface 
. 96 character ASCII 
. 7x7 dot matrix 
. Uses plain paper 
. Friction&pin feed 
. 2 character sizes 

Maryland area call 
Ira Cotton 468-2266 
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SAVING AN ADVENTURE 
TO DISK AND MORE 

- by IflCHAEL THOHAS, HOVAPPLE 

I have had the "ADVENTURE" program from 
Conflict Control since February of this 

S ear. It is an excellent game with one 
ad fault. It lacks the ability to halt 
an adventure and return to it later. This 
is very inconvenient, since whenever I 
have to leave for some reason I either 
have to end my adventure early or I have 
to leave the APPLE with the power on and 


to leave the APPLE with the power on and 
my adventure at the mercy of the all too 
frequent power outages. 1 do not like to 
do either of these. An adventure in 
progress also precludes the use of the 
APPLE for anything else. Again, this is 
inconvenient when I need to use the 
computer for a school project, or if I 
just want to play "SPACE INVADERS". As a 
solution to these problems I wrote the 
following routines to allow an adventure 
to be saved to disk and later restarted. 


There are three parts to this. First, are 
the modifications to the main adventure 
program, "ADVM"; second, is the program 
" RESUME. WRITE", which writes the text file 
"RESUME". After this file has been 
written on the adventure diskette, delete 
"RESUME. WRITE". Third, is the program 
"HELLO" , which replaces the current 
"HELLO" program. After these have been 
entered and saved, it is necessary to 
delete the following programs: "EDTEXT", 
"LISTEXT" and "ADVENTURE". This is to 
provide disk space for the variables and 
tables of the halted adventure. These 
programs are not needed for running 


"ADVENTURE" , but they do have their uses, 
so save them on another diskette. It is 
not necessary to delete these programs if 
you have the DOS 3.3. 

When an adventure is first resumed, the 
prompt will come up; type "LOOK" to find 
out where in your adventure you are. 

I also had the problem of not knowing 
which of the 600.000 words in the English 
language are the 300 recognized by 
"ADVENTURE". The program "ADV WORDS" 
prints a list of these words. 


Finally, the program "LISTEXT", which came 
on the adventure diskette, is supposed to 
list the "ATEXT" file (which contains the 
adventure messages) . but it does not do 
this. The modifications to make it work 
also follow. 


MODIFCIATIONS TO ADVM 


15 IF QUIT THEN 2260 

4511 Ml =0 : M2=594 : M3= 0 : PRINT "DO YOU WISH 
TO RESUME YOUR ADVENTURE AT A LATER 
DATE?": PRINT :GOSUB YES 

4512 IF NOT (YEA) THEN GOTO 7000:QUIT=1 

4513 PRINT D$;"BSAVE PNTRS, A4CC.L2" 

4514 PRINT Di;"BSAVE ADVIP.A|800,L"; 

( PEEK ( 204 ) +PEEK ( 205 ) *256-2047 ) 

4515 PRINT "COME BACK SOON" 

4516 END 

Change : 

4510 M1=516:M2=0:M3=594:G0SUB YES:GVP=YEA: 


IF GVP THEN 4511: GOTO 2260 
RESUME. WRITE 
10 D$="" 

20 PRINT D$ ; "OPEN RESUME" 

30 PRINT D$: "WRITE RESUME" 

40 PRINT "N6M0N C.I.0" 

50 PRINT "L0MEM:900o" 

60 PRINT "BLOAD PNTRS" 

70 PRINT "BLOAD ADVIP" 

60 PRINT "LOAD ADVM" 

90 PRINT "CALL -9060" 

100 PRINT D$ 

110 END 

HELLO 

10 REM K. BEASELY-TOPLIFFE WROTE THIS. 
COPYRIGHT 1979 NOW HELD BY CONFLICT 
CONTROL. 

20 REM MODIFICATION ENABLING CONTINU- 
ATION OF AN ADVENTURE AT A LATER 
DATE BY MICHAEL THOMAS N0VAPPLE 
30 D$="" 

40 CALL -936 

50 PRINT: PRINT: PRINT: PRINT "1) START 
A NEW ADVENTURE" : PRINT "2) RESUME 
AN OLD ADVENTURE" 

60 PRINT: PRINT: INPUT "1/2", I 
70 CALL -936: PRINT "EXCUSE ME WHILE I 
INITIALIZE." 

80 GOTO 90+ (1-1) *20 
90 PRINT D$; "EXEC ADVX" 

100 END 

110 PRINT D$;"EXEC RESUME" 

120 END 

ADV WORDS - APPLESOFT 
10 D$="" 

20 PRINT D$:" BLOAD TABLES" 

30 PRINT "WORDS RECOGNIZED BY ADVENTURE": 
PRINT 

40 FOR 1=20097 TO 21594 STEP 20 
50 FOR R= 0 TO 3 
60 FOR J = 0 TO 4 
70 PRINT CHR| (PEEK (I+J+(R*30)) ) ; 

60 NEXT J: PRINT " 

90 NEXT R: PRINT 
100 NEXT I 
110 END 

For a single column, change: 

40 FOR 1=20097 TO 21594 STEP 5 
80 NEXT J: PRINT 

And delete line nos. 50 and 90 

MODIFICATION TO LISTEXT 

Change : 

10 DIM A$(40) 

70 FOR 1=1 TO 1181 
Delete line nos. 40, 50 and 60 


Many thanks to Hal Weinstock for making 
his printer available to the Editor this 
month. Our printer is suffering from a 
mild case of downJJm|| ## 
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introductory offer ■ Shipping 


P.O. Box 94, Hauppauge, N.Y. 11787 


( 516 ) 360-0988 


jjr§ expand your 48 K Apple 
™ to 64 K of programmable 
memory 


switch selection of RAM 
or mother board 
ROM language 


includes instruction 
manual 


Allow 4*6 Weeks 
Apple II and Applesoft 
are trademarks of 
Apple Computer, Inc. 


1 

h 


eliminates the need for an 
Applesoft or Integer 
Basic ROM card 


A product of 
Andromeda * 
Computer Systems. 


allows you to run Apple’s 
new Fortran package and 
other languages 


plugs in slot 0 


Now Available 
for the Apple II 


16 K Ram 
Expansion Board 



BLAISE AUAY! 

Fooling the Compiler 


-or- 


Ucw to Know Where Your'e Feinting 
by 

DR. UO 


In this Booth's column we continue our discussion of pointers* It's a 
Bixed bas of rather loosely related ideas which includes improvements to the 
prodrsa given in the July coluctn (please refer to that issue) and s 
discussion of how to “fool" the cospiler into pointing to absolute locations 
in memory* 

Why Use Pointers? 


Some of you asKed me what the July program "does". The main thing it 
does is illustrate three pedagogical points* declarations for pointers* 
dynaaic aeaory allocation using the procedure "new”* and traversal of a 
linKed list in the procedure "printlist" . Beyond that the prograa simply 
dynamically creates a list of records ( ’personrec"s) then prints the list on 
the console — admittedly not a very exciting program* but Keep in mind the 
teaching points* 

Some of you also asKed me why use pointers* Indeed* the major 
alternative data structure* an ARRAY OF personrec (a static data structure)* 
seems appealing so why not use it? There are three general reasons* the 
importance of which will increases with the size and complexity of your 
application program*One is that we will liKely not Know at compile time how 
Bany entries will be in the list or array* Therefore* we may find ourselves 
recompiling to accomodate an unexpectedly large number of entries* The second 
reason is that the use of linKed lists introduces the possibility of dynamic 
memory management using the procedures n marK R and "release"* These bulit in 
procedures can be used to perform the inverse of "new"* namely to deallocate 
memory so that lists larger than RAM storage can (sometimes) be processed* We 
will postpone discussion of such memory management 'till another time* 

The third reason for using dynamic lists has to do with organization and 
sorting* In some applications you will want to have ready access to a sorted 
list and you will want to insert and delete entries at will* all the while 
maintaining the order of the list* Such exercises are cumbersome with an 
array* deleting an entry leaves a "hole" which must be dealt with* and 
inserting an entry means that the surrounding entries have to be pushed 
around to maKe room* With pointers the Job is simpler* we merely unlinK an 
entry to be deleted* or form a new linK for an entry to be added* The 
overhead of finding the position for a new entry is the same in both the 
array set-up and the linKed list. 

Adding a Dynamic Sort to "firsUin-last-out” 


Let us now consider the problem of inserting a new record in connection 
with our example program* Suppose we wish to create our list of names and 

telephone numbers alphabetized by nam o * Given the list is in some state* 

Vi contd. 


including empty* hoy do ue insert 3 new entry in its appropriate position? A 
sraightforward solution is to traverse the list until we find the position of 
the new entry* then adjust pointers to reflect the updated situation. Ue 
declare a variable “traveller' of TYPE fpersonrec which we use to traverse 
the list 1 

Suppose the situation is as pictured in Figure 1 . we have traversed the 
list and located the position for "newperson"* it is to be inserted between 
“traveller 1 ' and the entry preceding “traveller". Can ue now insert 
“neypersan"? No! The trouble* if you will* is that we have a singly iir.Ked 
list* our pointers only point down the list and our program can't Know what 
is behind “trsvalller'' unless it Keeps tract', of that. Therefore* ue introduce 
a variable “cor? anion'' which follows "traveller" down the list. 

liith the declaration of "companion" the situation will be as in Figure 
two. The following code fragment will then linK “new?erson" into its proper 
Flare! 


newpersor.t.next!=travailer* (Fig. 3a) 
co!s?aniont.next»=newperson* (Fig. 3b) 

A little thought should convince you this uorKs and that a little extra care 
needs to be taKen if "newperson" belongs at the head of the list. 

The codifications to our original program are all contained in the 
procedure “crestelist" . (Note the advantage of codular design in this 
regard. ) Only the codifications are presented below. The tasK of obtaining a 
new record hss been isolated in the procedure “getferson” and the tasK of 
inserting the new record is isolated in “ insertPerson“ ♦ For clarity* 
"insertperson" passes "firstperson" as a paraceter since ue cay have to 
insert the new record at the to? of the list* thus reauiring adjustment of 
"firstperson" . 

Putting Blinders on the Cocpiler 


As I mentioned lest time* one does not norcally Know* or care* what 
location a pointer is pointing to. However* there is a technioue to relieve 
us of such ignorance which can be used to good advantage in a variety of 
situations. The technioue* a certain use of variant records* contravenes the 
spirit of Pascal since it permits us to dynamically “type* a variable (thus 
avoiding the usually strong typing reauirecents ) and it cay not uorK for all 
implementations of Pascal. The technioue relies on the fact that pointers are 
stored as signed integers in the Apple's ceaory. 

Consider the following! 

TYPE freeunion=RECORD CASE BOOLEAN OF 

TRUE !(addrs! INTEGER); 

FALSE t ( con ten ts ! t INTEGER ) » 

end; 

VAR memory tfreeunion* 

“memory" is an undiscriminated variant record* or a variant record without a 
tag field (GroSono* pp 175-174). This means that the location in core 
reserved for “memory" can be referred to by two names at execution time. Uhen 
referred to as "memory. addrs" it will be considered an integer* and when 
referred to as "memory .con tents* it will be considered a pointer to an 
integer,(GroSano* P? 239-240) 
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Refer to Figure 4 and consider the following fragment: 

cemor y . addr s t =- 1 6368 * (Fig* 4a) 
ttemory*contentstt=0» (Fig* 4b) 

The first line deposits the value -16348* which is the signed integer 
address of the Keyboard strobe* into the location reserved for "fiemory"* The 
second line sasst interpreting the information stored in "Remora" as a 
pointer to an integer* store 0 in the loaction pointed to. The effect is to 
clear the Keyboard strobe! The modular procedures "peeK" and "PoKe" listed 
below use these techniaues to duplicate the functions of their BASIC (ugh! ) 
counterparts* 

Further A??lication5*SavinS and Recalling Graphics 


To further illustrate the versatility of this techniaue let's develop a 
pair of eodular procedures to transfer hi-res graphics isases to disK and 
back again. Consider* 

CONST screenstart=8l92» 
screensize=16* 

TYPE foto=PACKED ARRAYCO. . 81911 OF 0..255* 
f o toun i on=REC0RD CASE BOOLEAN OF 
TRUE t( addr si INTEGER)? 

FALSE »( contents* tfoto )» 

END? 

VAR picture tfotoun ion* 

blocKstr ansfer redll NTEGER i 
fotofileJFILE* 

With these declarations the fragment 
picture»addrs»=screenstart* 

blocKstr ansferred*=blocKwr ite( fotof ile*picture.con ten tst*screensize*0)* 

sets "Picture" to point to the start of the hi-res screen and then writes, the 
array pointed to* the screen* to the diskfile currently associated with 
"fotofile". 

Procedures for saving and fetching graphics* "savefoto" and "fetchfolo"* 
are declared below* Niether provides any 1-0 security in that "fetchfolo" 
expects a file of 14 blocks corresponding to a graphics image to be on disk* 
and "savefoto" expects there to be room for a file of 14 blocks* You nay want 
to improve then in these respects* 

SIG News 


Thanks to DicK Hodder of the Pascal SIG* and the Uniforaed Services 
University Helath Science Center* the SIG has an outstanding location for its 
nonthly meeting* We will be meeting the third Thursday of each month* 7130 
pm* at the Center* and we will have use of the Apples* including language 
systems* that reside there* Our first meeting will be Oct* 14* 7*30 pm* The 
Center is located near the intersection of Wisconsin Ave* /Rockville Pike and 
Jones Bridge Rd» in the neighborhood of the National Institues of Health. 
Please call me for additional information* 

There is another Pascal group around town which meets the fourth 
Wednesday of the month at Computers Plus in Franconia* Va. The group* all 
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Apple owners* is congenial and Knowledgeable* but the meetings are somewhat 
disorganized-' last tine our eeeting room was pre-empted be- another group and 
we spent the evening drinKing beer and swapping stories* 


Examples 

SSSSSSS3 

PROCEDURE createlistC VAR firstperson*lastparson:iinfc )# 

VAR new? arson IlinKI 
pgr soncounti INTEGER* 
answrtCHAR* 

PROCEDURE getPerson( VAR n ew?er son 1 1 i nK » VAR per soncaunt 5 INTEGER)* 

BEGIN 

new(n ewper son)* 

WITH n ewper son t DO 
BEGIN 

uritelnCparsoncount*' records entered*' )* 
uriteln* 

writeln( ' Enter the record of the next person*' )l 
uriteln* 

uritei'Naae* Ml 
readln(nase)l 
urite< 'Phone* Ml 
read ln< phone) I 
personcount» s Personcdunt+ll 
END* 

END I 

PROCEDURE insertPersonC VAR neuperson»firstpersonl linK )» 

VAR travel ler*co»panion*linK! 

BEGIN 

(find the position of newpersen and insert in the list* 

Start at the to? of the list. 3 
traveller .sfirstparson I 

(Traverse the list until the alphabetical position of newrerson is 
found or we reach the end of the list*} 

WHILE (neupersont*naae>travellert .name) AND ( travel lerOlastper son > DO 
BEGIN 

(set con? an ion to point where traveller does} 
companion l=tr aval ler I 

(move companion to point to the next record} 
traveller ^traveller t.nextl 
ENDI 

IF traveller=firstperson 
THEN BEGIN 

newpersont*next*~firstpersonl 
f ir stper son » = neuper son I 
END 

ELSE BEGIN 

newpersont .next! ^traveller I 
co»?aniont.nextJ=new? arson* 

ENDI 

END! 
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BEGIN 

personcount:=0} 
neu( lastperson )i 
f irstperson :=la 3 tper son i 

REPEAT 

P3de( OUtPUt)} 

Sotoxy< 0 > 5 ) } 

SetPerson( ne«Person»personcount )» 
inser tparsonC n eyp er son »f irstperson )» 
uriteln} 

urite< 'Enter another record?')} 

read<answr )} 

uriteln} 

UNTIL ansur IN C'n' »'N' 3} 

END} 


FUNCTION peeR( location* INTEGER)* INTEGER} 
VAR oeaory I RECORD CASE BOOLEAN OF 
TRUE Uaddrst INTEGER)} 

FALSE I ( con tents! tINTEGER)} 
END} 

BEGIN 

sieator y » sddr s « = 1 oca t i on } 
peeK t =aeaor y » con ten ts t } 

END} 

PROCEDURE poke! value location {INTEGER >} 
VAR Benoryt RECORD CASE BOOLEAN OF 
TRUEUsddrs: INTEGER)} 

FALSE ♦< contents! tINTEGER )} 
END} 

BEGIN 

meBory»addrs: = location} 
meaory.contentst J=value} 

END} 


PROCEDURE fetchfoto< filenaaeJSTRINOVAR blockstransferredtlNTEGER)} 
CONST 5creenst3rt=8192} 
screen size=16} 

TYPE foto=PACKED ARRAYCO. .81913 OF 0..255} 
f o tou n i on=RECQRD CASE BOOLEAN OF 
TRUE : ( addr s : I NTEGER ) » 

FALSER contents: tfoto)} 

END} 

VAR pictureJfotounion} 

block s transfer red: I NTEGER} 

• fotofile:FILE} 

BEGIN 

picture. 3ddrs: s screenstart} 
reset(fotofile>filenaBe)} 

block stransferred:=blocKread< fotofile>picture.contentstfscreensizef0)} 
close(fotofile»locK )} 

END} 

PROCEDURE savefoto< filenamelSTRINGIVAR b 1 ocK s tr an sf erred : INTEGER )} 

CONST sereenstart=8192) 
screen size=li} 
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TYPE foto=PACKEB ARRAYCO. .81913 OF 0..255J 
f otoun ion=RECQRD CASE BOOLEAN OF 
TRUEMaddrsJ INTEGER)? 

FALSE 1( contents. tfoto)* 

END? 

VAR pictureifotouRioni 

blocKs transferred! INTEGER* 
fotofileJFILE* 

BEGIN 

picture. 3ddrst=screenstart» 
reurite( fotofileifilenaae )» 

blocR5tran5ferredt=blocKurite<fotofile»Picture.cor.tent5t»screer,sise»0;* 
close( fotofile»locK )» 

end; 
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BUGS & WORMS 


The following corrections/program notes 
have been reported. Users are encouraged 
to report any similar discoveries on 
programs either from Washington Apple Pi 
or other widely distributed programs to 
the Editor. Washington Apple Pi, PO Box 
34511, Washington, DC 20034. 


HELLO Program, Volume 6. Games IV: Lines 

50 and 60 serve no functional purpose and 
can be deleted. Presently "SPACE 

ADVENTURE" will not run from the menu 
j)rogram_. To fix this, change line 700 to 

700 B$="": IF (PEEK (P+3)) # 2 THEN 750: 

B$="B" :L$="RUN" 

The change is underlined. 

To convert the same program to DOS 3 . 3 * 
replace line 50 as follows: 

50 POKE 2370,15 


DISK ACCESS UTILITY (as published in CALL 
-A.P.P.L.E. March 1979 and corrected 
April 1979): To convert the program so 
that it will work properly with DOS 3-3* 
make the following changes: 

1 420 TRACKsO : SECT=0 : TRACK 1 =34 : SECT1 = 1 5 
1520 SECT=SECT+1 : IF SECT < 16 THEN 1460: 
SECT=0 : TRACK=TRACK+1 


TUBS, The Ultimate BSTAT (originally from 
San Francisico Apple Core) : To convert to 
DOS 3 . 3 , change line 110 as follows: 

110 T=17:S=15:FL=LEN(N$) 



BY Dana J. Schwartz 

As an Integer Basic program is being 
developed, it sometimes becomes convenient 
(or necessary) to move a block of 
statements, say a subroutine, to a 
different position relative to the rest of 
the program. For example, you may want to 
move a frequently-called subroutine to the 
‘beginning of a program to improve 
execution speed, or an appended block may 
not be desired in the relative position at 
which it is necessary to bring it in. 

Formerly, I had moved blocks of code by 
listing them and then tracing over them 
with the cursor, while making the needed 
updates to their line numbers. However, 
this soon became tedious and error-prone, 
and I decided to come up with a better 
method for transferring Integer Basic 
statements. 

The COMMUTER routine is an extension of 
the Renumber/ Append routines distributed 
by CALL-A.P.P.L.E. of Seattle, Washington 
in their "WOZPAK" (WAP Disk#8). The user 
supplies the limits of the block to be 
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moved (from, to) and the new destination 
address and the line number increment 
(start, step), exactly as in usine 
RENUMBER. When COMMUTER is called, it 
checks for valid arguments, does the 
necessary memory moves, and then jumps to 
RENUMBER to actually change all the line 
number references. The Renumber and 
Append functions may still be used as 
described in the WOZPAK manual, and 
together with COMMUTER make a useful 
Integer Basic program development tool. 

The program file (containing the COMMUTER 
subroutine) is created by poking the code 
from the listing below into memory from 
$900 to $9E0, loading the WOZPAK 

Renumber/Append routine from $800 to $8FF, 
and then saving the entire package with 
>BSAVE COMMUTER, A$800, L$1E1 to disk, or 
*800.9E0W to tape. 

Operation: 


1) Set LCMEM: 2560 (or greater) 

2) a. Disk: >BLOAD COMMUTER , or 
b. Tape: (RESET) 

*800.9E0R and start tape 
*(CTRL-C) (RTN) 

3) >CLR 

>START=(New starting line number for 
resulting block) 

>STEP=(Line number increment for 
resulting block) 

>FR0M=( Starting line number of block 
to be moved) 

>TO=(Ending line number of block to be 
moved) 

>CALL 2304 

4) If the parameters are valid, the old 
and new line number pairs will be listed 
(see example). If the parameters are 
invalid (overlapping ranges - FROM > TO, 
etc.) then the message ft ***RANGE ERROR* 
will be displayed and there will be no 
change to the program. 

EXAMPLE: 


>LIST 

10 GOSUB 500 
20 END 

500 FOR 1=1 TO 1000 
510 GOSUB 1000 
520 NEXT I 
530 RETURN 
1000 PRINT I 
1010 RETURN 


>LOMEM: 2560 
>BL0AD COMMUTER 
>CLR 

>START=200 
>STEP=10 
>FROM=1000 
>TO=1010 
>CALL 2304 
1000->200 
1010->210 


>LIST 

10 GOSUB 500 

20 END 
200 PRINT I 
210 RETURN 
500 FOR 1=1 TO 1000 
510 GOSUB 200 
520 NEXT I 
530 RETURN 


cont 



’ ♦ ASM 


1 ****************************** 


> 



2 

* 


* 




3 

* COMMUTER 

6/25/80 * 




4 

* 


* 




5 

* BY 

DANA J 

SCHWARTZ * 




6 

* 


* 




7 

* 

INT BASIC SEGMENT MOVE * 




8 

* 


* 




9 

^ ^ ^ j|^ ||^ ^ ^ ||^ ^ ^ 




10 

* 






11 

* NEEDS WOZF'AK RENUMB/APPEND 




12 

* 






13 


ORG 

$0900 




14 

* 






15 

* SWEET 16 REGS 




16 

R1 

EGU 

$1 FR ADDR 




17 

R2 

EGU 

$2 TO ADDR 




18 

R3 

EQU 

$3 ST ADDR 




19 

R4 

EQU 

$4 LENGTH 




20 

R5 

EQU 

$5 TEMP PP 




21 

R6 

EQU 

$6 PP 




22 

R7 

EQU 

$7 MOVE-FR r WORK 




23 

R8 

EQU 

$8 MOUE-TQ 




24 

R9 

EQU 

$9 MOVE-ST J WORK 




25 

RIO 

EQU 

$a moue-len: work 




26 

RU 

EQU 

$B WORK 




27 

R12 

EQU 

$C STACK PTR 




28 

# 






29 

* PAGE 0 LOCS 




30 

FRL 

EQU 

$56 FR LNO 




31 

NEWTO 

EQU 

$58 TO LNO 




32 

STL 

EQU 

$5A ST LNO 




33 

TMPX 

EQU 

$5C SAVE X 




34 

* 






35 

LOMEM 

EQU 

$4 A lomem: 




36 

HIMEM 

EQU 

$4C himem: 




37 

PP 

EQU 

$CA PROGRAM PTR 




38 

RENUM 

EQU 

$800 RENUM/APPEND 




39 

GBA 

EQU 

$E56D GET BASIC ADDR 




40 

RNGER 

EQU 

$EE68 RANGE ERROR 




41 

SU16 

EQU 

$F689 SWEET16 




42 

* 



0900 1 

AO 

21 

43 

CMUT 

LDY 

*$21 GET TO+1 

0902 i 

B1 

4A 

44 


LDA 

< LOMEM >,Y 

0904 1 

C8 


45 


INY 


0905 1 

18 


46 


CLC 


0906 1 

69 

01 

47 


ADC 

*$01 

09081 

85 

58 

48 


STA 

NEWTO 

090 A : 

B1 

4A 

49 


LDA 

< LOMEM >,Y 

090CJ 

69 

00 

50 


ADC 

*$00 

090EJ 

85 

59 

51 


STA 

NEWTO+1 




52 

* 



09101 

AO 

08 

53 


LDY 

*$08 GET ST LNO 

0912: 

B1 

4A 

54 


LDA 

( LOMEM )»Y 

0914 1 

85 

5A 

55 


STA 

STL 

0916J 

85 

OE 

56 


STA 

$E ALSO TO R7 

0918: 

C8 


57 


INY 


0919: 

B1 

4A 

58 


LDA 

( LOMEM )»Y 

091b: 

85 

5B 

59 


STA 

STL+1 


091DJ 

85 

OF 


60 


STA 

*F 

09if: 

AO 

11 


61 


LDY 

**11 GET STEP 

0921: 

B1 

4A 


62 


LDA 

( LOMEM )»Y 

0923: 

85 

14 


63 


STA 

*14 TO RIO 

0925: 

C8 



64 


INY 


0926: 

B1 

4A 


65 


LDA 

< LOMEM )» Y 

0928 : 

85 

15 


66 


STA 

*15 

092A: 

AO 

1A 


67 


LDY 

**1A GET FR LNO 

092C: 

B1 

4A 


68 


LDA 

< LOMEM )fY 

092E: 

85 

56 


69 


STA 

FRL 

0930: 

C8 



70 


INY 


0931: 

B1 

4A 


71 


LDA 

( LOMEM )»Y 

0933: 

85 

57 


72 


STA 

FRL+1 





73 

* 



0935: 

A2 

04 


74 


LDX 

**4 GET ADDRESSES 

0937: 

B5 

56 


75 

ALF : ‘ 

LDA 

FRLfX LNO 

0939: 

85 

CE 


76 


STA 

*CE 

093B: 

B5 

57 


77 


LDA 

FRL+1 fX 

093D: 

85 

CF 


78 


STA 

*CF 

093F: 

86 

5C 


79 


STX 

TMPX 

0941: 

20 

6D 

E5 

80 


JSR 

GBA GET BASIC ADDR 

0944: 

A6 

5C 


81 


LDX 

TMPX 

0946: 

A5 

E4 


82 


LDA 

*E4 PUT ADDR 

0948: 

95 

02 


83 


STA 

*2»X INTO SU16 REG 

094A: 

A5 

E5 


84 


LDA 

*E5 

094C: 

95 

03 


85 


STA 

*3»X 

094E: 

CA 



86 


DEX 


094F: 

CA 



87 


DEX 


0950 : 

10 

E5 


88 


BPL 

ALP 





89 

* 



0952: 

20 

89 

F6 

90 


JSR 

SW16 

0955: 

1C 

El 

09 

91 


SET 

R12»ST SETUP STACK 





92 

* 



0958: 

23 



93 


LD 

R3 CHK OVERLAP 

0959: 

B1 



94 


CPR 

R1 

095A: 

02 

03 


95 


BNC 

OKAY START<FROM 

095C: 

D2 



96 


CPR 

R2 

09 5D: 

02 

7E 


97 


BNC 

RNG START<TO 





98 

* 



095F: 

22 



99 

OKAY 

LD 

R2 

0960: 

B1 



100 


SUB 

R1 

0961 : 

05 

7A 


101 


BM 

RNG ERROR 

0963: 

34 



102 


ST 

R4 LEN=TO-FROM 





103 

* 



0964: 

IB 

4C 

00 

104 


SET 

RIIfHIMEM LNO OVERLAP 

0967: 

6B 



105 


LDD 

8R11 

0968: 

D3 



106 


CPR 

R3 

0969: 

06 

17 


107 


BZ 

NCHK START=HIMEM 

096BI 

21 



108 


LD 

R1 FR ADDR 

096C: 

39 



109 


ST 

R9 

096B: 

49 



110 

CLP 

LD 

8R9 LENGTH 

096E: 

F9 



111 


DCR 

R9 

096F: 

A9 



112 


ADD 

R9 NEXT ADDR 

0970 : 

D2 



113 


CPR 

R2 TO ADDR 

0971: 

03 

06 


114 


BC 

LAST NEXT >= TO 

0973: 

39 



115 


ST 

R9 

0974: 

27 



116 


LD 

R7 LNO CTR 

0975: 

AA 



117 


ADD 

RIO STEP 

0976: 

37 



118 


ST 

R7 

0977: 

01 

F4 


119 


BR 

CLP 


23 


contd 


0979} 

23 



120 

LAST 

LD 

R3 

ST ART +1 ADDR 

097 A } 

3B 



121 


ST 

Rll 


097B} 

EB 



122 


I NR 

Rll 


097CJ 

6B 



123 


LOO 

SR 11 

START+1 LNO 

097D} 

07 



124 


CPR 

R7 


097EJ 

06 

50 


125 


BZ 

RNG 

ERROR IF = 

0980} 

02 

5B 


126 


BNC 

RNG 

ERROR IF < 





127 

* 




0982} 

IB 

CA 

00 

128 

NCHK 

SET 

RllrPP 


0985} 

6B 



129 


LOB 

8R11 


0986} 

36 



130 


ST 

R6 

SAVE PF* 

0987} 

B4 



131 


SUB 

R4 


0988} 

35 



132 


ST 

R5 

tpp=pp-len 





133 

* 




0989} 

26 



134 


LD 

R6 

FROM=PP 

098A} 

37 



135 


ST 

R7 


098B} 

23 



136 


LD 

R3 

TO=ST 

098C} 

38 



137 


ST 

R8 


098D} 

25 



138 


LD 

R5 

START=TF‘P 

098E} 

39 



139 


ST 

R9 


098F } 

OC 

34 


140 


BS 

MOVE 

EXPAND 





141 

* 




0991} 

22 



142 


LD 

R2 

CHK IF UPDATE 

0992} 

03 



143 


CPR 

R3 


0993} 

03 

06 


144 


BC 

CPY 

NO IF ST=<TQ 





145 

* 




0995} 

21 



146 


LD 

R1 

UPDATE 

0996} 

B4 



147 


SUB 

R4 


0997} 

31 



148 


ST 

R1 

FR=FR-LEN 

0998} 

22 



149 


LD 

R2 


0999} 

B4 



150 


SUB 

R4 


099A} 

32 



151 


ST 

R2 

TQ=TO-LEN 





152 

* 




099B} 

21 



153 

CRY 

LD 

R1 

FROM=FR 

099CJ 

37 



154 


ST 

R7 


0990} 

22 



155 


LD 

R2 

TO=TO 

099E: 

38 



156 


ST 

R8 


099F } 

23 



157 


LD 

R3 

START=ST-LEN 

09AO} 

B4 



158 


SUB 

R4 


09A1 } 

39 



159 


ST 

R9 


09A2} 

OC 

21 


160 


BS 

MOVE 

COPY IN 





161 

* 




09A4} 

25 



162 


LD 

R5 

FROM=TPP 

09A5* 

37 



163 


ST 

R7 


09 A6} 

21 



164 


LD 

R1 

TO=FR 

09A7 } 

38 



165 


ST 

R8 


09A8 : 

26 



166 


LD 

R6 

START=PP 

09A9J 

39 



167 


ST 

R9 


09AA{ 

OC 

19 


168 


BS 

MOVE 

CONTRACT 





169 

* 




09AC} 

00 



170 


RTN 







171 

* 




09 AD} 

A9 

EF 


172 


LDA 

#$EF 

NO RNG CHK 

09 AF} 

80 

4B 

08 

173 


STA 

RENUM+$4B 


09B2} 

A9 

EA 


174 


LDA 

*$EA 


09B4} 

80 

50 

08 

175 


STA 

RENUM+$50 






176 

* 




09B7 } 

20 

08 

08 

177 


JSR 

RENUM+$08 

RENUMBER 





178 

# 




09BA} 

A9 

2A 


179 


LDA 

*$2A 

RESTORE 



09 DC: 

80 

4D 

08 

180 


STA 

RENUM+$4B 

09BF 

A9 

30 


181 


LDA 

*$30 

09 Cl 

8D 

50 

OS 

182 


STA 

RENUM1 $50 

09C4 

60 



183 


RTS 






184 

4 







185 


SUBROUTINES 





186 

4 



09C5I 

28 



187 

HOVE 

LB 

R8 

09C6 ! 

B7 



188 


SUB 

R7 

09 C 7 ! 

3A 



139 


ST 

RIO LENGIH=TO~FR 

09C8! 

06 

OC 


190 


BZ 

NOMV 

09CAI 

n *r 

44/ 



191 


LD 

R7 

09 CB! 

D9 



192 


CRR 

R9 UP OR DOWN? 

09CC3 

03 

09 


193 


BC 

DOWN 

09CE 

29 



194 


LD 

R9 UP 

09CF ! 

AA 



195 


ADD 

RIO 

09D0! 

39 



196 


ST 

R9 

09D1 ! 

88 



197 

ULP 

POP 

6R8 

09D2! 

99 



198 


STP 

@R9 

09D3I 

FA 



199 


DCR 

RIO 

09D4! 

07 

FB 


200 


BNZ 

ULP 

09D6! 

OB 



201 

NOMV 

RS 


09D7 : 

47 



202 

DOWN 

LD 

@R7 DOWN 

09D8! 

59 



203 


ST 

@R9 

09D9 i 

FA 



204 


DCR 

RIO 

09DA 1 

07 

FB 


205 


BNZ 

DOUN 

09DC ! 

OB 



206 


RS 






207 

4 



09DDJ 

00 



208 

RNG 

RTN 


09DE ! 

4C 

68 

EE 

209 


JMP 

RNGER RANGE ERROR 





210 

4 







211 

ST 

DS 

2 SW16 STK 





212 

4 




— 

- END ASSEMBLY - 

— 




0968- 

D3 

06 

17 

21 

39 

49 

F9 

A9 

TOTAL ERRORS! 0 

227 BYTES GENERATED 

THIS ASSEMBLY 

0970- 

D2 

03 

06 

39 

27 

AA 

37 

01 

0900- 

AO 

21 

B1 

4A 

C8 

18 

69 

01 

4900. 9E0 

0978- 

F4 

23 

3B 

EB 

6B 

D7 

06 

5D 

0908- 

85 

58 

B1 

4A 

69 

00 

85 

59 


0980- 

02 

5B 

IB 

CA 

00 

6B 

36 

B4 

0910- 

AO 

08 

B1 

4A 

85 

5A 

85 

OE 


0988- 

35 

26 

37 

23 

38 

25 

39 

OC 

0918- 

C8 

B1 

4A 

85 

5B 

85 

OF 

AO 


0990- 

34 

22 

D3 

03 

06 

21 

B4 

31 

0920- 

11 

B1 

4A 

85 

14 

C8 

B1 

4A 


0998- 

22 

B4 

32 

21 

37 

22 

38 

23 

0928- 

85 

15 

AO 

1A 

B1 

4A 

85 

56 


09A0- 

B4 

39 

OC 

21 

25 

37 

21 

38 

0930- 

C8 

B1 

4A 

85 

57 

A2 

04 

B5 


09A8- 

26 

39 

OC 

19 

00 

A9 

£F 

8D 

0938- 

56 

85 

CE 

B5 

57 

85 

CF 

86 


09B0- 

4B 

08 

A9 

EA 

8D 

50 

03 

20 

0940- 

5C 

20 

6D 

E5 

A6 

5C 

A5 

E4 


09B8- 

08 

08 

A9 

2A 

8D 

4B 

08 

A9 

0948- 

95 

02 

A5 

E5 

95 

03 

CA 

CA 


09C0- 

30 

8D 

50 

08 

60 

28 

B7 

3A 

0950- 

10 

E5 

20 

89 

F6 

1C 

El 

09 


09C8- 

06 

OC 

27 

D9 

03 

09 

29 

AA 

0958- 

23 

D1 

02 

03 

D2 

02 

7E 

22 


09DO- 

39 

88 

99 

FA 

07 

FB 

OB 

47 

0960- 

B1 

05 

7A 

34 

IB 

4C 

00 

6B 

25 

09D8- 

59 

FA 

07 

FB 

OB 

00 

4C 

68 










09E0- 

EE 










THE PROGRfiMMfl WORD 
PROCESSING SYSTEM - 

a review froh a hem user 

b» SUSAN ZAKAR 

PROGRAMMA? INC* has introduced a new word processing system 
which incorporates both a powerful editor and a word processing 
capability* The system is a very much improved version of two 
earlier programs* I received my copy of the system only about a 
week ago* so admittedly am no expert yetf but I will pass on my 
observations to date* 

The PROGRAMMA Word Processing System is based on a UNIX 
designed system? known as ROFF* I became convinced of the 
magnitude of the similarity when someone in our office began to 
use PROGRAMMA' s documentation to figure out how to operate a 
newly installed UNIX-based system* Those of you familiar with a 
RUNOFF type system should find the PROGRAMMA System very easy to 
use* 


The system uses control keys to invoke editing functions? 
such as delete? scroll? insert? and so forth* In addition? the 
escape (ARG) key may be used to specify values associated with 
the particular function* Thus? to insert 5 lines in the text 
would take only 3 Key-strokes* Among the functions supported by 
the editor are the following* 

* Forward and reverse search 

* Global search and replace 

* Wraparound 

* Push and Pop buffers 

* Settable Tabs 

* Scrolling 

* Upper and Lower case 

* Supports Paymar Chip 

* Shift and Shift-lock 

* Insert control characters 

* GOTO any line 

* Output file to a printer 

* Many I/O Utilities 


The above functions are by no means an exhaustive list* The 
selection of functions seems to be very complete and extremely 
well documented* The documentation (in a simulated leather 
binding) covers well over 100 pages Just for the editor part of 
the system and another 40-plus for the word processing sections* 
Explanations and examples are by and large easy to follow? and 
comprehensive* PROGRAMMA is to be commended on their efforts* 

The PROGRAMMA Word Processing System is easily adapted to 
use for form-letters? mailing lists? and other formats reeuiring 
input files* The System can even be used in editing BASIC 
programs and seeuential text files* I have actually done the 
latter? and am depending on the accuracy of the documentation to 
support the for trier* 

The part of the system known as FORMAT allows Justification? 
indenting? underlining? head and foot titles? page numbering? 
print controls? paragraphing? and much more* Instructions are 
input using "dot" commands? (such as " *PL 80 “ to set the page 
length to 80 )« These commands are mnemonics and can be learned 
euickly* The range of supported commands is too wide to cover in 
such a short review as this* Suffice it to say that they are more 
than adequate for most word-processing requirements* 

Provisions have been made to tailor the system to the User's 
environment* I have mine running on the IDS-440 Printer? off the 
game I/O* I had to do some Jury-rigging to get it to work? but 
once you understand what has to be done? the process works easily 
and well* I can pass on specifics to anyone interested* 

I hope this review is of some value to those of you still 
considering a word-processing program for your APPLE II* So far? 
I would have absolutely NO Qualms about recommending the system* 
Cost is about $80? well worth it? in my opinion* 


SPACED 

FILE 

CABINET 


by DENNIS J. REEDER 

Have you ever had the need to 
adjust the output of 
FILECABINET II (WAP Volume 2) 
to give spaces between output 
lines? My wife suggested 
that it would be helpful to 
have the capability, for 
editing purposes, of calling 
for some spacing in the 
output of her index data 
base. I found the following 
to work: 


1073 DIM SPA$ ( 1 ) 

3494 IF SPAsO THEN GOTO 3500 

3495 FOR LINE = 1 TO SPA 

3496 PRINT " " 

3497 NEXT LINE 

5142 PRINT "HOW MANY SPACES 
BETWEEN LINES ( 0-5 ) : INPUT 
SPA$ : SPAsVAL(SPA$ ) : IF 
SPA < 0 OR SPA > 5 
THEN 5142 


Simply enter the above into 
the program, and when it is 
time to turn on the printer, 
the query will show up after 
asking for the print line. 

It makes the output more 
readable for editing 
purposes. 
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ItoshinStan Apple Pi 
Page 3 

Sertenter Hi 1980 


TINY LETTER URITING 


Hex H. Hethusela 
662 Terracotta Trail 
Entropy* Kansas 
12345 

September Hi 1980 


Gentlenen: 


ft wise naiden scenteth trouble afar and avoideth a scene! 
but the foolish dansel exdaineth: Don ' t ! 

A good wonan would rather be the nother of a genius than 
the wife of a hero. 


I uisshe to denonstravte to veu thisse noste renarkable 
inventionnei uhiche is a nadtine and sette of instructiones 
which printtes nv wordes in a fvne and niniature fore. 


Not by their STRENGTH do nen prevail over wonen to have 
their wayi but by OBSTINACY and PERSISTENCY. For any iwn in 
tine can uin anv uonan. 


Fret) 'The Haxiits of Hethusela' 

Chapter IV 

Yea* as fascinating as a loose tooth is a secret to a young 
iwid. For she knoueth not whether to spit it out or keep it 
safe! yet she cannot forget it. 

Catnip pleaseth the kitten! aid the readied of her pain 
reJoiceth the dansel. Even as one who fitteth a BGUCET costune 
to a debutante! so is he who dotheth a uonan' s vanity with 
pleasant prophecies. 

She doeth to the sorcerer std the fortune-teller awl 

she returneth with a fiarvel 
aluay. Yea* thoudh dw believeth not! yet doth she believei 
and her lire are filled with wonders. 


It is naudhti it is naudhti saith the naiden! but when he 
has done his uav she hurrieth to the nirror and reJoiceth at 
her beauty. 

Sincerely! 

Max ! 


100-199: INTRODUCTION I 
300-399: READ/TEST BATA t 
600-699: HAKE LETTERFILEt 

i looo-???: data HIES ummumumtmm 

15 TEXT : HOE : 

17 HTAB7 

70 PRINT "tt* TINY LETTER MRITER IK 


5 mmnmtmtnmmm 

% TINY LETTER IIRITER PRGM. tt 

fcAl ^ * *--* AA-* * W.A m. i » » * * . A A 

tllf ll tt nwMlIlll l lItlMli 

▼ 1 p 1 * WWW 9' TTTTWTV 

t 2C0-299^DATa*FCR^T^W 
i 400-599: HRITE LETTER tt 


Hashindton Apple Pi 
Fade 2 

Septefiber 14! 1980 


25 PRINT : PRINT “ MENU:*: PRINT : PRINT * 1. INTRODUCTION 
*: PRINT : PRINT * 2. BATA FORMAT (INSTRUCTIONS)*: PRINT 
: PRINT" 3. BATA FffiWAT": PRINT : PRINT * 4. READ IT 
EST TEXT*: PRINT : PRINT 0 5. PRINT OUT LETTER*: PRINT 


Behold! a dansel said unto »e: 

How well thou understandest ne! 
yet I knew not what she spakei for she ended not ter sentences. 
But I held ny tongue* ate forbore questioning! therefore uas I 
dad in uisdon. 

He who srilleth ice-crean upon her front breadth shall be 
forgiven! but whoso nentioneth last night's indiscretion shall 
be despised. 

Better are two left-hand gloves* than a nan in the noon- 
liaht with the wrong uonan! 
and a (widen alone by the seashore is as a hat without a hat pin 
-she breedeth wild thoughts. 

As a cushion which sheddeth its feathers* as a malting dog 
which leapeth upon theei so is a uonan who saith continually UHY 
desireth thou to kiss ne ? 

To be two years a widow exceedeth a college education! ate 
a uonan without brothers 
hath a hard tine. 

A teasing uonan is as a squeaking shoe* or as when one 
walketh on spilt sugar. 


V PRINT " 6. SAVE LETTER TEXT*: PRINT : PRINT " 7. END": PR1 
NT 

30 PRINT” 8HICH ? *5: GET At:A = UAL (At) 

35 IF A (1 THEN ENB 

40 (91 A GOTO 100*200*245*300*400*600 

99 ENB ___ 

t INTRODUCTION tt I 

tmtttttttttttttttttttttttt 

105 TEXT: HONE 
'0? HTAB 7 

110 PRINT ”ttt TINY LETTER-IIRITER m 

115 PRINT: PRINT" THIS PROGRtf IS DESIGNED TO CONTROL T 
HE EATON IRC 7000+ PRINTER* FORMATTING AND PRINTING OUT 
A MINIATURE 'TYPED' LETTER - HAVING UPPER AND LQUER-C 
ASE CHARACTERS.” 

120 PRINT : PRINT * THE PRINTER SHOULD BE CAPABLE Iff OUT- P 
UTTING 64 CHARACTERS/LINE. 0 

125 PRINT : PRINT ■ 'NORMAL' CHARACTERS UILL BE USER CASEJC 
AP1TAL LETTERS ARE OBTAINED BY TYPING IN 'CTRL.B'i JUST 
BEFORE EACH LETTER Y0UHANT TO BE CAPITALIZED." 

130 PRINT : PRINT " SINCE TO LETTER (MO BE QUITE LONGi T 
HIS PR0GRAH UILL STORE SENTENCES IN THEF0RM OF DATA LINE 

cotitd. 
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135 PRINT : INPUT "(HESS RETURNViHOLDts HONE 
140 PRINT 1 FOR SIHPUCITtf THE BATA LINES HILL BEFORHAITE0 
FOR YOU. YOU SIMPLY COPY OVER THE BATA LINE «> THE OUOT 
E HARK FOLLOW- INC IT) AND HEN TYPE IN WHATEVER FITS.* 

142 PRINT : INPUT '(PRESS RETURN )"5H0LD*: PRINT 
145 PRINT : PRINT ' FOR EXAMPLE:*: PRINT : FOR T * 1 TO 200 
0: NEXT T 

150 0$ = CRRS ( ASC (T) - 1): FOR N * 4040 TO 4050 STEP 5: 
PRINT B 3*jN» n BATA B »0$!: FOR DASH = 1 TO 3?: PRINT CHRt 
(95)5: NEXT DASH: PRINT : PRINT : NEXT N 
152 S * - 16336 

155 DENK1) = “34040BATA" + Q» + " NOU IS THE TINE FOR ALL Q 
OOD HEN T0 B 

157 FOR T = 1 TO 3000: NEXT T 

160 VTAB PEEK (37) - 8: FOR PLACE = 1 TO LEN (BEH»(1)): INVER 
SE 

: PRINT HIM(DEH$(lbPlACEil)5: 

(62 SIM) = PEEK (S) - PEEK (S): IF PLACE > 10 THEN FOR TI 
HE = 1 TO 1I1U 100 1 1000 t (PLACE = 11): ei TIN 
E 

(63 mmmmmmmtmn t 

t NOTE LOGIC STATEMENTS IN t» LINE I162> UHICH INTRO- t 
t MICE A LONG" DELAY ON « THE UTH CHARACTER. AND 0 
t RANDOM BELAY AFTER LOTH. ttttttttttttttttttttttttttm 

165 NORMAL: VTAB PEEK (37) + i - (PUCE = 40): HTAB PEEK 
(36) ♦ 40 I (PLACE = 40): PRINT BIDS lDEHt(lbPLACEii)> 

166 rem ttttttttttttttttttttttttt simulating the moving curt 

* SOR HAS A BIT TRICKY, tt WHEN AN INVERSE CHARACTER) 

I IS 'TYPED' AT HTAB 40» tt THE HORIZONTAL CURSOR PH 
t SIT1QN (PEEW36)) RESETS tt TO 0. THE 'NORMAL' CHAR- t 

167 REN tt ACTER MUST ALSO BE TYPED t 

t AT HTAB 40. (THAT'S THE tt PURPOSE OF THE: I 

168 IF FLAG = l THEN RETURN 
170 NEXT PLACE: PRINT 

175 B£H$(1) = -34045DATA" + 04 + “COKE TO THE AID Of THE PART 
Y» HHICH" 

180 PRINT :FLAG = 1: FOR PLACE = 1 TO LEN (BEHKD): INVERSE 
: PRINT HIM (BEHS(lbPUCE)l)l: GOSUB 162: NEXT PLACE 
185 BEHK1) * "34050BATA" + Q$ ♦ "AUNT AGATHA CONSIDERS TO BE 
A NUISANCE. 8 

190 PRINT : PRINT SFLAG - 1: FOR PLACE * 1 TO LEN (OEHSU)) 

: MUSE : PRINT HIM (BEHKlbPLACE)l)5: GOSUB 162: NEXT 

PLACE 

195 PRINT : PRINT : PRINT : PRINT “VCIO YOU LIKE TO SEE THI 
S AGAIN (Y/N)?“i: GET AC If At = T THEN CLEAR : HOKE 
: GOTO 140 

zoo m tmmnmtttmmm t 

t DATA FffllNATTER tt t 

mtmmwmmnmm 

205 REN ttttttttttttttttttttttttt t 

I INTRO.TO BATA FtRNATTER tt I 

tttttttttttttttttttttttttttt 

207 TEXT : HOKE 

210 PRINT "ttt INSTRUCTIONS FOR BATA FORMATTER ttt 


215 PRINT : PRINT * AS HAS MENTIONED) (OUR JTTER S TEXT tl 
TIL BE ENTERED ON BATA LlfCS .THAT IS: NUMBERED Ll(€S BE 
GINNING HITH THE HGRD BATA') AND rSLOHEB BY A QUOTE K 
ARK).“ 

216 OS = CHRM ASC - 1) 

217 PRINT : PRINT "»>--> 37123ATA ,, »fl$J B M IS THE TIME . 

225 PRINT : PRINT "iF YOU W^t'tO PUT IN A SPACE (BE- I 

HEEN LINES IN YOU* LETTER)) SIMPLY COPYA DATA LINE TO JU 
ST BEYOND THE QUOTE. : PRINT 

227 INPUT* (PRESS RETURN.) B 5HQLB$ 

230 HOKE: PRINT" THIS PRINTER HILL ENABLE YOU TO SELECTAN 
Y OF FOUR CHARACTER SIZES) CONTROLLED BY CONTROL CHARACT 
ERS ENTERED AT THE BE-GMKG OF ft LItts a : PRINT 

232 PRINT" KULD YOU LIKE A PRINTED COPY OF THIS INFORHATI 
ON AT THIS TIKE ? "5: GET At: PRINT : PRINT : IF At = "Y 
" THEN PR* i: PRINT CHRt (30b CHRt (15) 

233 PRINT “ttt CONTROL CHARACTERS FOR PRINTER W 

o. PRINT 

234 PRINT “1. 64 CHAR/LINE: (NO CTRL.CKAR.NEEDEBP. PRINT : PRI 
NT 

"2. 40 CHAR/LINE: (CTRL. * (SHIFT N)) B : PRINT : PRINT “3 
. 32 CHAR/LIHE: (CTRL. H) H : PRINT : PRINT *4. 20 CHAR/LI 
«: (CTRL.N»CTRL.*)": PRINT 

235 PRINT "5. ALL CAPITALS: (CTRI.A)": PRINT : PRINT "6. 
CANCEL ALL CAPS: (CTRL.A)": PRINT : PRINT * (ENTER AT A 
NY POINT IN BATA LINE.)': PR»0 

244 PRINT :: INPUT “ (PRESS RETURN.) "5K0LM 

245 DAYTA = 1000: REN : INITIAL DATA LINE NUMBER. 

t FORHAT ROUTINE: tt t 

tttttttttttttttttttttttttttt 
252 Qt = CHRt ( ASC <T> - 1): KR i mm NARK. 

255 HONE: PRINT 8 ttt LETTER TEXT ttt“ 

260 FOR DAYTA = DAYTA TO DAYTA ♦ 25 STEP 5: PRINT T5BAYTAJ 
“DATA ,, 5Q$5: FOR DESH = i TO 16: PRINT CHRt (95)5: NEXT 
BESH: PRINT *20/": 

261 FOR BESH = 20 TO 28: PRINT CHRt (95)51 NEXT DESH: PRINT 
B 32/"5: FOR DESH = 32 TO 36: PRINT Oft (95)5: ffiXT DES 
H: PRINT “40/“5: FOR DESH = 40 TO 69: PRINT CHRt (95)5: 

ffiXT BESH: PRINT "64/“ 

265 PRINT : NEXT DAYTA 

270 PRINT ” DAYTA=“)BAYTA5“:GOTO 250 (FOR MORE LINES.)" 

275 PRINT 0 RUN 300 (CHECK LETTER TEXT.)" 

280 VTAB 1 
299 END 

t READ i TEST BATA: tt THIS ROUTINE HILL t 

t PRINT OUT THE LETTER » DATA) HITH CAPS IN t 

t PUSHING VIDEO. ttttttttttttttttttttttttttttt 

301 ffiM ttttttttttttttttttttttttt t 

t AT TIC END OF ERROR- tt CHECKING) ERROR LINES t 

t HILL BE PRINTED GUT tt FOR CWKCTMI. > 

305 TEXT : HONE : RESTORE :LHE = 1000: DIN ERRC30) 

307 PRINT "ttt DECK LETTER TEXT ROUTINE: ttt 

». pRHff 

310 READ Lie: IF Lie = "(END OF DATA) 8 THEN EOF = KftMfT 
: PRINT LINES: POE 37»19: GOTO 345 
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contd 


112 IF LAST ) LINE HEM LINE * LIE + 5: GOTO 313 
315 St = CHRt ( ASC (T) - 1): PRINT “J'iLIEP'BATA'IQtl 
320 IF LIB = 0,1 THEN PRINT " - SPACE GOTO 340 
322 CAP = -1 

325 FOR CHAR 5 1 TO LEN (Lie) 

330 CHAW = HIM (LIE4,CHAR,1): IF CHARt = CHRS (2) THEN FLA 
SH 

: NEXT CHAR 

332 IF CHARt = CHRt (!) THEN CAP = CAP I - is REH sCONTROL 
CHAR. FOR ALL CAPS/TURN OFF ALL CAPS. 

334 IF CAP = 1 THEN FLASH 

335 PRINT CHARti: NORM : HEX! CHAR: IF OUT = 1 THEN ETURN 
: REH :FLAG FROM PRINT-LETTER. 

337 PRINT :ERRt = “t" 

340 LIE = LIE + 5 

345 IF PEEK 137) ) 18 TEN PRINT : INPUT “»)-> ERROR LIN 
E II ? (E='ENUFF' ) "iERRt: IF DAL (ERRt) > 0 TEN ERR = 

ERR 4 l:ERR(ERR) = UAL IERRt): GOTO 345 
BO IF ERRt < ) T TEN HOE : IF EE = 1 OR ERRt = T TEN 


360 

355 GOTO 310 

360 reh ttmtmtmmmtm t 

t ERR08-C0RECT PR INTOUT tt t 

365 IW 8 ttt TE FOLLOWING LIES HAVE ERRORS ttt — 

367 IF EWK1) = 0 TEN PRINT : HTAB 6: PRINT "(NOE INDICAT 
EH.)": END 

370 RESTORE :LIE = lOCMEOF = 0: FOR N = 1 TO 3C:BAD = BAD + 
(ERRIN) > 0): EXT 

375 READ At: IF At = "(END OF DATA) 1 THEN EOF = 1 
380 FOR CHECK = 1 TO 30: IF ERRICHECK) = LIE TEN PRINT “3 
•JLIEfWJOtiAt: PRINT :8AD = BAD - l: IF BAD ) 0 TEN 
IF ERRICECK) = 0 TEN 375 

385 EXT CHECK: IF EOF = 0 AND BAS ) 0 THEN LIE = LIE ♦ 5: 

GOTO 375 
390 VTAB 1 
399 END 

t URITE LETTER: tt t 

t (GET SENDER, RECEIVER tt ADDRESSES, i DATE.) t 

t mt tt t ttt tttttttttttttt t tt tt 

405 TEXT : HOE 
407 HTAB 5 

410- PRINT "ttt LETTER-URITING ROUTIE ttt 

412 READ At: IF At = “(END OF DATA) 8 TEN PRINT CHRt (7): PRI 
NT 

8 SORRY. I HAVE NO LETTER TEXT. 8 : PRINT : PRINT “ (PRO 
GRAH ENDED. 5": END 
4)3 RESTORE 

415 PRINT: PRINT 8 E ARE NOU EASY TO GET YOUR NAHE AND A 
DDESS, AND TE NAE AND ADDESS OF THEPERSON YOU’RE URI 
TIHG TO. 11 

420 PRINT : *PRINT 8 EEHBER: 8 : PRINT : PRINT " USE "5 : FLASH 

: PRINT "CTRL.B 8 ): SORHftL : PRINT 8 TO HAKE CAPITAL LETT 
ERS. 8 

422 PRINT 8 BEGIN EACH IEUT LIE UITH A 8 ): FLASH : PRINT 
•’SUOTC. 8 : NORHAL : PRINT 
425 PRINT : FOR N = 1 TO 4 


430 PRINT “YOUR KH/AOR.LIE *"?«?: INPUT SNDRttN): IF LEN ( 
SNBRtlN)) ) BIG TEN BIG : LEN (SNBRttN)) 

IF SNDRttN) = “ 8 TEN 445 
EXT N 

INPUT “LETTER'S DATE ?“»DAYTEt: IF LEN (DAYTEt) ) 
BIG THEN BIG = LEN (DAYTEt) 

PRINT : PRINT 8 NON, TE NAE AND ADDRESS OF THE PER- S 
ON YOU'RE UNITING TO: 8 : PRINT 
INPUT 8 RECIPIENT'S ME ? "JRECRtd) 

465 FIRSTt = LEFTt (RECRt(l),7) 

467 PRINT 

FOR N = 2 TO 4 

PRINT FIRSTt*”: LIE TIN): INPUT RECRt(N) 

IF RECRt(N) = 88 THEN 485 
EXT 

INPUT 8 LETTER SALUTATION 
IF RIGHTt (SALt,l) ( ) 8 , 

INPUT" COMMENTARY CLOSE ? "JCQHPt: IF RIGHTt (COE 
t,l)< ) 8 , 8 TEN COEt = COfft ♦ V 
INPUT 8 SIGNATURE 1 “ISIGt 

t URITE LETTER, COND. tt t 


435 

440 

445 

450 

460 


470 

475 

477 

480 

485 

490 

495 

497 


? "JSALt 

THEN SALt * SALt ♦ V 


PRINT 8 EE IS TE DATA I HAVE: 8 


501 D1H HER 12) 

502 OUT = l: TEXT : 

> pgjgj 

504 FOR N s 1 TO 4:LIt(N) = SNDRt(N): EXT ALIENS) = DAY! 

Et: FOR N = 6 TO 9:LIEt(N) = RECtCN - 5): EXT N 
506 LltllO) = SALtsLIt(ll) = C0Et:LIt(12) = SIGt 
508 FOR N = 1 TO 12: PRINT “LIE 05”: ”5:LIEt = LIEt(N) 

: GOSUB 325: PRINT 

510 IFN = 40RN S 50RN)8 TEN PRINT 

512 EXT N: PRINT : IEUT “IS TE ABOVE DATA CORRECT (Y/N): 8 
5ANSt: IF LEFTt (ANSt,l) = "N 8 THEN INPUT "TYE LIE 8 
, CORRECT BATA: 8 !LIE,LINEt(LIE): HOE : GOTO 508 

513 FOR N = 1 TO 4:SNDRt(N) = LMttN): EXT NsBAYTEt = LIE 
t(5): FOR N = 6 TO 9:ECt(N - 5) = LIEt(N): EXT N:SALt 
= HEt(10):C0HPt = LIEt(U):SIGt = LIEK12) 

515 PRi l: PRINT : GOSUB 550 
517 PAGE = 1 

520 FOR N * 1 TO 4: IF SNBRt(N) ( ) 88 TEN At = SNDRttN): PRI 
NT 


522 

525 

527 


TAW 63 - BIG)): COSUB 560: 

EXT N 

IF DAYTEt ( ) 88 THEN At = DAYTEt: PRINT TAW 63 - BIG 
)): GOSUB 560: GOSUB 800 
PRINT : GOSUB 800 
530 At = SALt: COSUB S60: PRINT :C8UNT - COUNT t 2 
535 READ At: IF At = "(END OF DATA)" TEN 580: EH END LETT 
ER 

IF At < ) 8,1 TEN GOSUB 560: GOSUB 800 
IF At = 88 TEH PRINT : GOSUB 800 
GOTO 535 

t PRINT PAGE DELIEATQR 0 t 

tttttttttttttttttttttttttttt 
PRINT CHRt (15)) CHRt (31)): FOR DASH = 1 TO 63: PRINT 
8 - 8 ): EXT DASH: PRINT : PRINT :COUNT = 0: RETIRN 
eh t mmttt tm t t ttttttm t 

t PRINT TEXT tt i UPPER, LOUER CAE.) t 

t 


537 

540 

545 

550 


551 

560 
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561 K - 32:CAP = - l: PRIMT CHRt (31)5 08$ (15);: FOR CHAR 

= 1 TO UEN (A$):CHAR6 - HIM (AI»CHAR»1):ASKI = ASC 
(CHARI): IF ASKI < 65 THEN K = 0: IF ASKI = 2 fi© NEXT 
CHAR 

562 IF ASKI s 1 THEN CAP = CAP f - U NEXT CHAR 

563 PRINT QS> (ASM ♦ K - K t (CAP = l))i:K = 32 

564 NEXT CHAR 

568 PRINT: RETURN 

* RRAH PACE DELINEATOR. » PRINT NEXT-PAGE HDNG.. t 
t AND CONTINUE. tt I 


572 COSUB 550:PAG£ = PACE + 1 
574 A$ = RECt(l): GOSUB 560:A$ = CHRt (2) ♦ "PAGE * + STM 
(PAGE): GOSUB 560 


575 At = DATTEt: GOSUB 560 

576 PRINT :CQUHT = 4 
570 GOTO 535 

t CLOSE LETTER. tt t 


582 PRINT : PRINT TAB! 40)5:A$ = COM>$: GOSUB 560: PRINT : PRI 
NT 

TASt 40)MAt = SIGt: GOSUB 560:C0UNT = COUNT M 
584 FOR N - 1 TO 30 * COUNT: PRINT : OT N 
586 GOSUB 550 


588 GOTO 700: REH : PRINT ADDRESS LABEL. 
590 END _____ 

t HAKE LETTER FILE tt 

tttttttttttt t ttt t t tt ttttttt t 

602 RESTORE 

605 TEXT : HOKE :K = 08$ (4) 

606 HTAB7 

607 PRINT "tit SAVE LETTER TEXT tit 


t 

t 



608 RESTORE : READ At: IF At = "(END OF DATA)' THEN PRINT OR 
t 

(7)>At: PRINT : PRINT 8 (SORRY. THERE'S NO TEXT TO SAVE 
.)": END 

610 VTAB 5: INPUT "UKAT NAME FOR YOUR BATA ? U 5FI$: IF Fit = 

08 THEN END 
615 Fit = “HICRO: 8 ♦ Fit 
620 HONE : POKE 33.33 

625 VTAB 5: PRINT 8 - ONE HOOT. PLEASE.- 8 

630 PRINT DTOPEN "Fit 

635 PRINT Dt 8 BEL£TE “Fit 

640 PRINT BfOPEN “Fit 

645 PRINT DWRITE “.Fit 

647 PRINT “DEL 1000.5000“ 

650 LIST 1000 - 5000 

655 PRINT Dt 8 CLOSE 8 

660 TEXT : HONE 

665 PRINT Dt-CATALOG 8 

670 PRINT CHRt (7): PRINT “ttt DONE! ttt 8 

699 END 

t ADDRESS LAKL PRINTER tt t 

705 REN ttttttttttttttttttttttttt t 

t Iff LETTER HAS JUST BEEN tt PRINTED* AND HERE UE HAXEt 

t AN ADDRESS LAKL. USING it SNDRKN) 1 RECRKN). t 

* mtttttttttttttttttttttttttt 


710 IF RECRt(2) * — THEN END : REN : IN) ADDRESS GIVEN. SO 
QUIT. 

715 FOR N s 1 TO 4 

720 IF SNDRt(N) < ) — TffiH PRINT SNDRttN) 

7S NEXT N 

730 FOR N = 1 TO 4: PRINT : NEXT N: REN : KIP BONN ON LABEL 

735 RECRt(l) = "TO: « ♦ RECRt(l) 

740 FOR N = 1 TO 4:BIG(K) = LEN (RECt(N)): ffiXT N: REN : GE 
T LENGTH OF ADDRESS LINES. 

742 BIG = 0 

745 FOR N = 1 TO 4: IF BIKN) ) BIG THEN BIG = BIGIN): REH : 
FIND LONGEST ADDRESS LINE FOR GOOD UFT-F08NATTING Of RE 
CEIVER'S ADDRESS. 

750 NEXT N: FOR N = 1 TO 4: IF BIG = SIKH) THEN 755 

751 NEXT N 

755 PRINT CHRt (30): REH :SHIFT TO LARGER CHARACTERS. 

760 HTAB 36 - BIG: PRINT RECRttl) 

765 FOR N = 2 TO 4 

770 IF RECRtfN) < ) 88 THEN HTAB 40 - BIG: PRINT RECRttN) 
775 iCXT N 

780 PRINT CHRt (31): REH : BACK TO 64 CHAR/LINE. 

785 FOR N - 1 TO 4: PRINT : NEXT N 

790 FOR DASH = 1 TO 64: PRINT NEXT BASH: PRINT 

795 PRI 0: REH : VOILA !! 

799 END 

t LETTER LINE-COUNTER AND tt PAS-LENGTH CONTROLLER, t 

810 COUNT = COUNT ♦ is REH : COUNT A PRINTED LINE. 

820 IF COUNT ) 28 THEN PRINT : GOTO 570: REH : PRINTED PA 
GE HEADINGS! BEGIN NEB PAGE. 

830 RETU RN 

t DATA LINES FOLLOH tt t 

tttttttttttttttttttttttttttt 

24999 BATA (END OF DA TA) 

t HOUIE HITCHELL tt 7923 91. 55TH PLACE t 

t GAINESVILLE. FLA. 32601 tt JULY. 1 980 t 

% mmsm mm mmmm 


NAY H. HETHUSELA 
662 TERRACOTTA TRAIL 
ENTROPY. KANSAS 
12345 


TO: WASHINGTON APPLE PI 
P.O. BOX 34511 
WASHINGTON D.C. 
20034 
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The following article is reprinted from 
THE MONTGOMERY JOURNAL, September 26, 

1980. 

Soeaklnq Up 

Take That, Word Processor! 


By Peggy Eastman 

Special to the Journal 

You sit before a silent television 
screen which has a typewriter 
keyboard attached to it. You take a 
small, thin disk gingerly between 
thumb and forefinger and insert It 
into the machine. A message, “Close 
disk door,” flashes on the machine. 

Obediently, you close the flap 
covering the disk slot. You stare at 
the empty screen, trying frantically 
to remember what you wanted to 
say. Tentatively, you press the return 
. key. A little white blip called a cursor 
jumps around on the screen like an 


animated flea. 

The machine Is a word processor. 
In a quiet but frighteningly 
ubiquitous way, word processing 
machines are taking over law 
offices, newspapers, consulting 
firrhs, government agencies. Press 
the “print” button and they spew 
forth appellant briefs, murder and 
fire stories, government reports on 
subjects as diverse as energy 
conservation and biomedical 
research. 

The word processor long since 
has shelved that old manual 


typewriter that helped you think when 
you banged away on it, and it’s sent 
the sleek IBM Selectric back to the 
design room. 

Word processors are entering pri- 
vate Homes, demanding an honored 
place beside the piano. A consultant 
who works out of his Kensington home 
says his word processor saves him 
days of time and secretarial effort. “I 
can give a draft of a report to my 
secretary, see a typed version in a day 
and make changes in another day,” he 
says. “It used to take a week.” 

Word processors can store reams of 
material on tiny record-like disks, 
allow you to change whole chunks of 
your manuscript without retyping, 
give you an instant replay with the 
press of a finger. They also can de- 
stroy a report if you press the wrong 
Button — making your precious words 
vanish without a trace. 

There is something suspicious and 
grossly un-literary about the very 
name “word processor." How does it 
process words? Does it chew them? 
Does it digest them? Does it launder 
them? Does it dismember or scramble 
them? What does it do with Webster’s 
finest inside that box? 


As if to counteract a semantically 
cannibalistic image, manufacturers 
have;given futuristic brand names like 
“Lexitron” and “Vydec” to their word 
processing machines. But you still 
nave the uneasy feeling that you’re 
working with a Cuisinart of the King’s 
English, and that what you get back is 
somehow tainted. I can’t help thinking 
that — like a sinister preview of an 
upcoming Robert Heinlein novel — the 
word processor will somehow corrupt 
my latest magnum opus just for the 
heck of it. I can almost hear it chor- 
tling metallically. (She wants to say 
“Studies showing the world will self- 
destruct in 1990 are still inconclu- 
sive?" Click. Click. I’ll change it to 
“Studies show the world will self-de- 
struct in 1990 conclusively.") 

With its insidious talents, a word 
processor gone wild could: jeopardize 
relations between the United States 
and the People’s Republic of China; 
screw up Social Security payments; 
start an auto workers’ strike; short 
McDonald’s on a shipment of ham- 
burgers. 

A word processor is, of course, a 
computer. As such, it takes its place in 
that shadowy realm called “artificial 
intelligence,” domain of robots and 
real-time control centers. In his book 
“The Digital Villain,” Robert M. Baer, 
Ph.D., a University of California 
mathematician, notes drily: “The 
computer is the most beautiful and 
useful of man’s inventions. The manu- 
facturers’ brochures say so." 
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Beloved by scientists to whom soft- 
ware means more than lounge pillows, 
deplored by liberal arts graduates im- 
bued with Wordsworth and Keats, the 
computer- word processor has entered 
a world heretofore dominated by liter- 
ary greats. Can you see Lord Byron, 
chest heaving, pouring out his heart’s 
darkest secrets to a silent box? Can 
you picture Shakespeare composing 
“Romeo and Juliet’’ on a television 
screen? 

The trick, of course, is not to capitu- 
late to the mechanistic commands of 
the little box. Let it know immediately 
who’s boss. You can always have the 
last word: just unplug it. As caustic 
critic Lewis Mumford put it, “No auto- 
matic system can be intelligently run 
by automatons — or by people who 
dare not assert human intuition, 
human autonomy, human purpose.” 

If you really want to get into all this 
in a scientific and non-emotional way, 
you could pore through back issues of 
something called the “International 
Journal of Man-Machine Studies,” or, 
for those with slicker tastes, “Com- 
puterworld.” But I, for one, would 
rather stick with Humpty Dumpty, 
who said with egg-like simplicity: 
“When I use a word, it means just 
what I choose it to mean — neither 
more nor less.” 

Take that, word processor. 


4 . 



DOUBLE-SIZE 
GRAPHICS FOR THE 
SILENTYPE 

by BRUCE r. FIELB 


Let me start by saying that I think the 
Silentype printer is potentially one of 
the most versatile printers on the 
market* Most conventional printers 

available for the APPLE control the 
printer operation via microprocessors in 
the printer with the printer functions 
coded in ROM* These instructions that 
tell the printer how to operate are 
hidden from the user and in fact are 
unalterable by the user. You can only do 
as much as the manufacturer will let you 
do. 

The Silentype on the other hand uses the 
microprocessor in the APPLE to control 
the printer functions with the 
instructions contained on a ROM on the 
printer interface card. What this means 
to the user is that the hardware 
functions of the printer (i.e. moving the 
printhead, printing a dot, and advancing 
the paper) are all controllable directly 
by the APPLE 1 We are no longer tied to 
the software provided by the manufacturer 
and are free to do anything we want 
within the mechanical constraints of the 
printer mechanism. WOOPIE! 

Our only problem now is to find out how 
to control the functions of the printer. 
Well APPLE n thoughtfully" didn f t provide 
any information on the ROM software or 
the printer hardware to allow this. 
Letters to APPLE didn't produce any 
results either. Enter Sandy Greenfarb. 
Sandy also was trying to get information 
on the printer and obtained through XAC 
(International APPLE Core ) a 14 page 
writeup on how to move the head and print 
a dot, and also a little on how the 
printer character set is defined and 
used. Just what I wanted. The result is 
the machine language routine presented 
here for printing either Hi-res graphics 
screen at double size. 

Using the routine is very simple, it uses 
the standard Silentype parameters to 
control the printing. You simply BLOAD 
DBL GRAPHICS routine into memory (it 
resides from §300 to $3C7 and so won't 


conflict with Applesoft, Integer Basic, 
or DOS ) . You can generate or load your 

hi-resolution picture either before or 
after loading the DBL GRAPHICS routine. 
Then initialize the Silentype as you 
would normally (PR#1 from Basic if your 
printer is in slot 1 ) and setup the 
printer parameters as desired. Instead 
of typing a control-Q to print the Hi-res 
screen, from Basic you CALL 768 to 
activate this routine. The CALL can be 
placed inside a program or typed directly 
from the keyboard. If you are typing the 
CALL from the keyboard and don't want 
those words to appear on the printer, 
first reset the APPLE output to the 
screen (PR#0)? the printer does not have 
to be "turned on" to print the graphics. 

As it is written the routine is slightly 
slot dependant and assumes your printer 
interface card is plugged into slot 1. 
It is very easy to change this if ‘you use 
a different slot. The offending byte is 
at $30F hex or 783 decimal. This should 
be changed to $C0 + printer slot (hex) or 
192 + printer slot (decimal). Once you 

do this you can save it back to disk and 
not worry about it. 

For those of you who are old hands at the 
APPLE and know how the Hi-res graphics 
screen works, you can go on to the next 
article? otherwise I'm going to try to 
describe how the routine works • First 
let me air a pet peeve. Most double size 
graphics printing routines I have seen 
( as for the Paper Tiger) chop off the 
sides of the screen when printed full 
double size because the picture is a 
little too wide for the printer. This 
comes about because the characters on the 
APPLE screen are 5 dots wide with a 2 dot 
space between them. Forty characters on 
the screen means 280 dot positions in the 
horizontal direction which is exactly the 
resolution of the Hi-res screen. Most 
dot matrix printers however print 
characters 5 dots wide with a one dot 
space between them. For 80 column wide 
printers this means 480 dot positions, 
not quite enough to print the graphics 
double sized. The obvious solution (at 
least to me) is to print .the graphics 
screen sideways on the printer! The 
vertical resolution of the Hi-res screen 
is 192, times 2 is 384 which easily fits 
on a printer with 480 dot positions. So, 
guess which way my routine prints the 
screen? 


contd 


Now that I have that off my chest, let's 
dig a little deeper into how the routine 
works* A rather poor map of the Hi-res 
screen is shown on page 21 of the new 
APPLE Reference Manual. (It would be 
handy to get it out now for reference. 
If you don't have one our club Treasurer 
has them for sale.) This map shows an 
array of 40 boxes in the horizontal 
direction and 24 in the vertical 
direction. In the horizontal direction 
each box controls 7 dots on the graphics 
screen. As explained on page 19 of the 
manual bits 0 through 6 control the seven 
dots with the least significant bit (bit 
0) controlling the left-most dot of the 
group. In the vertical direction things 
are a little messier because the boxes 
are not organized in an orderly fashion. 
Each box represents 8 bytes in memory 
with each byte corresponding to a 
different vertical position on the screen 
and the bits within the bytes controlling 
the 7 horizontal dots as explained above. 

Now lets see if I can straighten all this 
out with an example. Suppose we want to 
know the address of the byte that 
controls the 87th dot from the left on 
the 23rd line from the top of the screen. 
Twenty-three divided by 8 is 2 with a 
remainder of 7, so we go down to the 
third vertical box from the top which has 
an address of 8448 (decimal) and we want 
the 7th line in that box which means we 
add 6144 to 8448. (We go to the third box 
because box 1 controls lines 1-8, box 2 
lines 9 - 16 etc. and we use the diagram 
in the lower right hand corner to find 
the number 6144 to be added to the base 
address.) Then we move over to the right 
to add in the contribution of the 
horizontal position. Eighty-seven 
divided by 7 is 12 with a remainder of 3. 
So we go over to the 13th box (which is 
labelled 12 because the numbering starts 
with 0) which adds 12 to the address. 
Now we total up these numbers to get 
14604 which is the address of the byte we 
want* That wasn't so hard was it? By 
the way to get addresses for Hi-res page 
2 we simply add 8192 to the address 
calculated above. 

Since we now know how the screen works, 
let's print it. We are going to print it 
sideways so we start at the lower 
left-hand corner, get a byte, print it, 
and work our way up; then move to the 
right one row and repeat. The way I'm 


doubling the graphics size is to print a 
cluster of four dots to represent one dot 
on the screen. This doesn't improve the 
resolution; it just makes the picture 
bigger. 

The Silentype can print a line of 7 dots 
at one time. This is okay for regular 
size printing but for double size we are 
going to have to make two passes to print 
what corresponds to one column of bytes 
on the screen. Each byte contains 7 bits 
of screen data which we are going to 
print as 14 dots wide. The first pass 
starts at the label NXROW1 in the 
assembly code and gets the byte from the 
screen and looks up in a table what 
should be printed based on the 4 least 
significant bits in the byte. This is 
printed twice and the program loops 
around to get the byte from the row 
above. When this is completed the paper 
is advanced and the printer head returned 
to the left margin. The same process is 
repeated except this time bits 4 - 6 of 
the byte are used. This completes the 
printing of the first seven dot columns 
of the screen; repeating this 40 times 
finishes the graphics dump. 

There are just two other things to take 
care of and actually these come first in 
the program. APPLE warns against running 
the printer and the disk at the same time 
as this overloads the APPLE power supply. 
To prevent this there is a wait routine 
at the beginning of the graphics dump to 
allow the disk to timeout and stop 
running from any previous disk operation. 
Also, since the graphics dump doesn't 
respect the right margin it is possible 
to set the left margin so that the print 
head is forced against the right side of 
the printer (bad/ bad). Thus the left 
margin is checked and reset to a maximum 
of 18. Actually a left margin of 10 is 
my favorite as it centers the graphics on 
the page. 

< 3 6 
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ASM 


C100 

0C1A- 
001B- 
002 A' 
002B 
CF11- 
CF13- 
CF2B- 
CFFF- 
CF14- 

CD02 

CBOB 

CCAB- 

FCA8 


0300- 

0302- 

0304- 

0307- 

0308- 

030A- 

030D- 


0310 - 





1000 

**************************************************** 




1010 

* 




* 




1020 

* 

DBL 

GRAPHICS 


* 




1030 

* 




* 




1040 

* 

PRINTS EITHER HIRES PAGE DOUBLE SIZE ON 

* 




1050 

* 

THE 

SILENT YPE PRINTER 

* 




1060 

* 




* 




1070 

♦ 

PRINTER MUST 

BE INITIALIZED 

* 




1080 

* 

WITH CORRECT 

HIRES PAGE, INVERSE MODE, 

• * 




1090 

* 

LEFT MARGIN# 

AND INTENSITY 

* 




1100 

* 




* 




1110 

* 

B. ] 

?. FIELD 

AUGUST 1980 

* 




1120 

* 




* 




1130 

**************************************************** 




1140 

* 








1150 

* 








1160 

SLOT 

♦EQ 

$C100 

ADDR OF PRINTER 





1170 

* 








1180 

HBASL 

•EQ 

26 

FOR SCREEN ADDRESS 





1190 

HBASH 

.EQ 

27 

COMPUTATION 





1200 

XO 

• EQ 

$2A 

SCRATCH COLUMN VALUE 





1210 

YO 

.EQ 

$2B 

SCRATCH ROW VALUE 





1220 

LFMG 

.EQ 

$CF1 1 

LEFT PRINTER MARGIN 





1230 

HPAG 

.EQ 

$CF13 

HIRES SCREEN 





1240 

DOTS 

.EQ 

$CF2B 

DOT IMAGE TO BE PRINTED 





1250 

ROMS 

.EQ 

$CFFF 

CO-RES ROM SWITCH 





1260 

INVRS 

.EQ 

$CF14 

PRINTER INVERSE FLAG 





1270 

* 








1280 

SFTLFT 

.EQ 

$CD02 

MOVE HEAD TO LEFT MARGIN 





1290 

PRNT 

.EQ 

$CB0B 

PRINT DOT IMAGE ROUTINE 





1300 

FEED 

.EQ 

$CCAB 

ADVANCE PAPER 





1310 

WAIT 

.EQ 

$FCA8 

MONITOR WAIT ROUTINE 





1320 

* 








1330 


• OR 

$300 






1335 


• TA 

$800 






1340 

* 








1350 

* 

WAIT FOR 2 SECONDS TO MAKE SURE 





1360 

* 

DISK ISN’T RUNNING 





1370 

* 





A2 

OD 


1380 

DOUBLE 

LDX 

#13 

COUNTER FOR WAIT LOOP 


A9 

FF 


1390 


LDA 

#255 



20 

A8 

FC 

1400 

LOOP 

JSR 

WAIT 

MONITOR WAIT ROUTINE 


CA 



1410 


DEX 


DEC LOOP COUNTER 


DO 

FA 


1420 


BNE 

LOOP 






1430 

* 





AD 

FF 

CF 

1440 


LDA 

ROMS 

SWITCH OUT CO-RES ROMS 


AD 

00 

Cl 

1450 


LDA 

SLOT 

SWITCH ON PRINTER ROMS 





1460 

* 








1470 

* 

IF LEFT MARGIN >18 THERE ISN'T ROOM FOR GRAPHICS 




1480 

* 

RESET MARGIN 

TO MAX OF 18 IF NECESSARY 





1490 

* 





A9 

12 


1500 


LDA 

#18 
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0312- CD 

11 

CF 

1510 


CMP 

LFMG 


0315- BO 

03 


1520 


BCS 

OK 


0317- 8D 

11 

CF 

1530 


STA 

LFMG 

CORRECT LEFT MARGIN 

031A- 20 

02 

CD 

1540 

OK 

JSR 

SFTLFT 

MOVE TO LEFT MARGIN 




1550 

* 







1560 

* 

GET 

EACH COLUMN OF BYTES ON THE SCREEN 




1570 

* 

AND 

PRINT THEM 

TWICE 




1580 

* 




03 ID- AO 

00 


1590 


LDY 

#0 


031F- 84 

2A 


1600 

NXCOL 

STY 

XO 

XO IS COLUMN COUNTER 




1610 

* 




0321- A9 

BF 


1620 


LDA 

#191 

IN IT ROW 

0323- 85 

2B 


1630 


STA 

YO 





1640 

* 




0325- 20 

76 

03 

1650 

NXROW1 

JSR 

GETPT 

GET SCREEN VALUE 

0328- 29 

OF 


1660 


AND 

#$0F 

MASK UPPER BITS 

032A- AA 



1670 


TAX 



032B- BD 

A8 

03 

1680 


LDA 

TBL1,X 

LOOKUP DOT IMAGE IN TABLE 

032E- 4D 

14 

CF 

1690 


EOR 

INVRS 

EXCLUSIVE -OR WITH INVERSE 

0331- 8D 

2B 

CF 

1700 


STA 

DOTS 


0334- 20 

OB 

CB 

1710 


JSR 

PENT 

PRINT DOT IMAGE 

0337- 20 

OB 

CB 

1720 


JSR 

PRNT 

TWICE FOR DOUBLE SIZE 




1730 

* 




033A- A5 

2B 


1740 


LDA 

YO 

TEST IF ROW=0 

033C- FO 

05 


1750 


BEQ 

NEXT 


033E- C6 

2B 


1760 


DEC 

YO 

DECREMENT AND CONTINUE 

0340- 4C 

25 

03 

1770 


JMP 

NXROW1 


0343- 20 

9F 

03 

1780 

NEXT 

JSR 

CRLF 

DO RETURN AND LINE FEED 




1790 

* 







1800 

* 

SEVEN BITS IN EACH SCREEN BYTE REQUIRES 




1810 

* 

PRINTING 14 DOTS ON THE PRINTER 




1820 

* 

THUS HEAD MAKES 

TWO PASSES 




1830 

* 







1840 

* 

THIS IS SECOND 

PASS 




1850 

* 




0346- A9 

BF 


1860 


LDA 

#191 


0348- 85 

2B 


18 70 


STA 

YO 


034A- 20 

76 

03 

1880 

NXROW2 

JSR 

GETPT 

GET SCREEN BYTE 

034D- 29 

78 


1890 


AND 

#$78 

MASK LOWER BITS THIS TIME 

034F- 4A 



1900 


LSR 


SHIFT FOR TABLE OFFSET 

0350- 4A 



1910 


LSR 



0351- 4A 



1920 


LSR 



0352- AA 



1930 


TAX 



0353- BD 

B8 

03 

1940 


LDA 

TBL2,X 

GET DOT IMAGE 

0356- 4D 

14 

CF 

1950 


EOR 

INVRS 

EXCLUS IVE-OR WITH INVERSE 

0359- 8D 

2B 

CF 

1960 


STA 

DOTS 


035C- 20 

OB 

CB 

1970 


JSR 

PRNT 

PRINT DOT IMAGE 

035F- 20 

OB 

CB 

1980 


JSR 

PRNT 

TWICE FOR DOUBLE SIZE 




1990 

* 




0362- A5 

2B 


2000 


LDA 

YO 

TEST IF ROW=0 

0364- FO 

05 


2010 


beq 

NEXT2 


0366- C6 

2B 


2020 


DEC 

YO 

DECREMENT AND CONTINUE 

0368- 4C 

4A 

03 

2030 


JMP 

NXROW2 


036B- 20 

9F 

03 

2040 

NEXT2 

JSR 

CRLF 
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2050 

* 




2060 

# 

ONE SCREEN COLUMN COMPLETED 



2070 

* 

INC REM COLUMN AND REPEAT 



2080 

* 


036E- A4 

2A 

2090 


LDY XO 

0370- C8 


2100 


INY 

0371- CO 

28 

2110 


CPY #40 SEE IF ALL 40 COLUMNS DONE 

0373- 90 

AA 

2120 


BCC NXCOL NO, CONTINUE 

0375- 60 


2130 


RTS ALL DONE, EXIT HERE 



2140 

* 




2150 

* 

COMPUTE MEMORY ADDRESS FOR HIRES SCREEN POSITION 



2160 

* 

Y VALUE IN YO, X VALUE IN XO 



2170 

* 

LEAVE WITH SCREEN VALUE IN ACC 



2180 

* 


0376- A5 

2B 

2190 

GETPT 

LDA YO 

0378- A4 

2A 

2200 


LDY XO 

037A- 48 


2210 


PHA 

037B- 29 

CO 

2220 


AND #$C0 

037D- 85 

1A 

2230 


STA HBASL 

037F- 4A 


2240 


LSR 

0380- 4A 


2250 


LSR 

0381- 05 

1A 

2260 


ORA HBASL 

0383- 85 

1A 

2270 


STA HBASL 

0385- 68 


2280 


FLA 

0386- 85 

IB 

2290 


STA HBASH 

0388- OA 


2300 


ASL 

0389- OA 


2310 


ASL 

038 A— OA 


2320 


ASL 

038B- 26 

IB 

2330 


ROL HBASH 

038D- OA 


2340 


ASL 

038E- 26 

IB 

2350 


ROL HBASH 

0390- OA 


2360 


ASL 

0391- 66 

1A 

2370 


ROR HBASL 

0393- A5 

IB 

2380 


LDA HBASH 

0395- 29 

IF 

2390 


AND #$ IF 

0397- OD 

13 CF 

2400 


ORA HPAG 

039A- 85 

IB 

2410 


STA HBASH 

039C- B1 

1A 

2420 


LDA ( HBASL ) , Y GET SCREEN VALUE 

039E- 60 


2430 


RTS 



2440 

* 




2450 

* 

DO LINE FEED OF 4 DOT POSITIONS FIRST 



2460 

♦ 

THEN DO CARRIAGE RETURN 



2470 

* 

THIS ORDER REDUCES LINE STAGGER 



2480 

* 


039F- A9 

04 

2490 

CRLF 

LDA #4 

03A1- 20 

AB CC 

2500 


JSR FEED ADVANCE PAPER 

03A4- 20 

02 CD 

2510 


JSR SFTLFT MOVE TO LEFT MARGIN 

03A7- 60 


2520 


RTS 



2530 

* 




2540 

* 

TABLES FOR CONVERSION OF SCREEN BYTE 



2550 

* 

TO DOT IMAGE FOR SILENTYPE 



2560 

♦ 


03AS- 00 

60 18 




03AB- 78 

06 66 
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03AE- IE 

7E 


2570 TBL1 

03B0- 01 

61 

19 


03B3- 79 

07 

67 


03B6- IF 

7F 


2580 

2590 * 

03B8- 00 

40 

30 


03BB- 70 

OC 

4C 


03BE- 3C 

7C 


2600 TBL2 

03C0- 03 

43 

33 


03C3- 73 

OF 

4F 


03C6- 3F 

7F 


2610 

2620 * 


2630 


SYMBOL TABLE 

039P- CRLF 
CF2B- DOTS 
0300- DOUBLE 
CCAB- FEED 
0376- GETPT 
001B- HBASH 
001A- HBASL 
CF13- HPAG 
CP 14- INVRS 
CF11- LFMG 
0304- LOOP 
0343- NEXT 
036B- NEXT2 
03 IP- NXCOL 
0325- NXROW1 
034A- NXROW2 
031A- OK 
CB0B— PRNT 
CPFF- ROMS 
CD02- SFTLFT 
C100- SLOT 
03A8- TBL1 
03B8- TBL2 
FCA8- WAIT 
002A- XO 
002B- YO 


.HS 0060 18 78 0666 1E7E 

.HS 0161 19790 7671F7F 


.HS 004030700C4C3C7C 

.HS 03433373 0F4F3F7F 
.EN 


$300. 3C7 

0300- A2 

OD 

A9 

FF 

20 

0308- DO 

FA 

AD 

FF 

CF 

0310- A9 

12 

CD 

11 

CF 

0318- 11 

CF 

20 

02 

CD 

0320- 2A 

A9 

BF 

85 

2B 

0328- 29 

OF 

AA 

BD 

A8 

0330- CF 

8D 

2B 

CF 

20 

0338- 0B 

CB 

A5 

2B 

FO 

0340- 4C 

25 

03 

20 

9F 

0348- 85 

2B 

20 

76 

03 

0350- 4A 

4A 

AA 

BD 

B8 

0358- CF 

8D 

2B 

CF 

20 

0360- 0B 

CB 

A5 

2B 

FO 

0368- 4C 

4A 

03 

20 

9F 

0370- C8 

CO 

28 

90 

AA 

0378- A4 

2A 

48 

29 

CO 

0380- 4A 

05 

1A 

85 

1A 

0388- OA 

OA 

OA 

26 

IB 

0390- OA 

66 

1A 

A5 

IB 

0398- 13 

CF 

85 

IB 

B1 

03A0- 04 

20 

AB 

OC 

20 

03A8- 00 

60 

18 

78 

06 

03B0- 01 

61 

19 

79 

07 

03B8- 00 

40 

30 

70 

OC 

03C0- 03 

• 

• 

43 

33 

73 

OF 


A8 

FC 

CA 

AD 

00 

Cl 

BO 

03 

8D 

AO 

00 

84 

20 

76 

03 

03 

4D 

14 

OB 

CB 

20 

05 

C6 

2B 

03 

A9 

BF 

29 

78 

4A 

03 

4D 

14 

OB 

CB 

20 

05 

C6 

2B 

03 

A4 

2A 

60 

A5 

2B 

85 

1A 

4A 

68 

85 

IB 

OA 

26 

IB 

29 

IF 

OD 

1A 

60 

A9 

02 

CD 

60 

66 

IE 

7E 

67 

IF 

7F 

4C 

3C 

7C 

4F 

3F 

7F 


contd 
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RETAIL COST OF GASOLINE 



i .40 
i .20 
1 .00 
0 .SO 
0 .SO 
0 .40 
0 .20 
0 .00 



72 74 

VEAP. 
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GROUP PURCHASE PLAN 


In order to more effectively plan for club group purchases we would like to have 
some idea of your needs. Please check the Items of Interest and either bring the 
form to the next meeting or mall It to: 


Howard Lefkowltz 

11508 Colt Terrace 

Silver Spring, Maryland 20902 

When we receive sufficient interest in an item, where the quantities qualify for 
group purchase, we will be In touch with you. A one-third deposit Is needed for 
all Items before we can place an order. 

Hardware 


Floppy Disk: __ 

Language System 

Applesoft Card 
Parallel. Card 

Serial Card 

Prototype Card 

New Apple 80 Column, Lower Case Card 

Sllentype Thermal Printer 

IDS Paper Tiger Printer 440 

Hayes Micro Modem 

Z-80 Microsoft System 

ALF Music Synthesizer 

Clock/ Calendar Card 

Graphics Tablet 

CRT Monitors Sanyo 9" 

SOROC IQ 12 ' 

Other 


Disk with Controller 
DOS 3.3 

Integer Basic Card _ 

Centronics Card 

Communications Card 


, 460 


Sanyo 12" 


Software 


Apple FORTRAN 
Apple Writer _ 

Apple Post 

VI si calc 

CCA Data Mgmt. 

Other 


PILOT 

Apple PLOT 

DOS 3.3 Tool Kit ~ 
Desk Top Plan 
Dakln-5 3.3 Utilities 



projector*' 

A unique program. The two same paddles are used to control rotations of 
three dimensional geometric objects (a cube# pyramid# prism# etc# built 
into the program) through a full 360 degrees about body co-ordinate axes. 
It is thus possible to rotate the object to any orientation. The program 
can be toggled to modes in which successive images of the three dimensional 
object are superposed as the object undergoes arbitrary rotation. In this 
manner# an infinite variety of patterns of great symmetry# complexity# and 
beauty can be constructed. These images may be saved on disk and recalled 
or printed# as below. The program also contains sets of line-segments which 
may be rotated three dimensionally for the same purpose. In all# the program 
has 24 operating modes# 12 of which allow the construction of superposed 
images. Complete documentation incl uded. Requires 48K RAM or ROM 
Applesoft*. 11 



a 

decent 


moon 


A classic lander for the Apple!* 

High resolution color graphics is 
used throughout. As the program 
begins# the LEM orbits high above 
the cratered surface of the moon. 

Using both game paddles# you must 
control craft orientation and rocket 
thrust in real time. When the LEM 
reaches the horizon# the scene 

automatically switches to a closeup of the mountainous terrain and landing 
pad to which the LEM must be brought. If the landing is successful# two 
astronauts emerge from the LEM and plant. a ceremonial flag. After each 
landing# crash or safe# a status report is generated. There are four levels 
of difficulty# including a retrograde orbit. Complete instructions. 48K 
RAM or ROM Applesoft.* 


Ian 



r 


* Apple and Applesoft are trademarks of Apple Computer# Inc. 
C Copyright 1980 - R. Streitmatter** 


THE GEOMETRIC PROJECTOR — $19.95 
A DECENT MOON LANDER — $19.95 


(on disk only) 


To order: Send check or money order to Robert Streitmatter 

1703 GREENTREE CT. 
CROFTON, MD 21114 

**A Washington Apple Pi member. 


UJo/hington Apple PI 
fTlember/hlp Application 


Dues for membership in Washington Apple Pi are $12.00 per year. The dues year 
runs from January 1 to December 31. Members joining after February should pay at 
5??i r ? te ^S r V; 00 per ®°nth. Both new members and renewing members are asked to 
rill in the following application as completely as possible. Information gained 
here will help the club serve you better. 

If you have any questions please call Cenevie Urban- (301 229-3*458) or 

Bob Peek, Treasurer (301 458-2305). 

IhanK you. 


NAME__ 

ADDRES S . 

CITY, STATE, ZIP 

TELEPHONE NUMBERS: HOME ( ) WORK ( ) 

PLEASE LIST HARDWARE YOU OWN: APPLE II APPLE II PLUS 48K 32K_2*JK 1 6 K 

DISK II SERIAL__/PARALLEL__I/0 AI/0_RS-232 

OTHER :(e.g. MODEM, PRINTER) 


OCCUPATION 

I WOULD LIKE TO WRITE ARTICLES FOR THE NEWSLETTER (Y/N). 
MY AREAS OF INTEREST ARE: 


IF YOU WOULD LIKE TO ASSIST ON A COMMITTEE OR SPECIAL INTEREST GROUP, PLEASE 

specify ; 


I AUTHORIZE THE RELEASE OF MY NAME , ADDRESS AND TELEPHONE TO OTHER MEMBERS. 

(NOTE: Club policy prohibits releasing members' names and addresses unless you 
release that information by obeoking the appropriate areas above.) 

PLEASE ENCLOSE PAYMENT WITH THIS APPLICATION. 

MAKE CHECK tniABUS TO "WASHINGTON APPLE PI" 

MAIL TO: WASHINGTON APPLE PI Attn. Treasurer 

PO BOX 34511 
WASHINGTON, DC 20034 




WASHINGTON APPLE PI 
MAIL ORDER FORM 


Washington Apple Pi now has a program library, and disks are available for 
purchase by anyone. The price to members is $5.00 per disk and $8.00 to 
non-members. These disks are chock full of exceptional programs - the 
utilities are especially useful. The games are some of the best - not just 
simple and uninteresting ones. You may pick them up at any meeting or nave 
them mailed for $2.00 per disk additional. They will come in a protective 
foam diskette mailer. 

Also available for purchase by members at a discount price is the new APPLE 
II REFERENCE MANUAL (replaces the Red Reference Manual). The price of this 
manual is $17.00. You may pick it up at a meeting or have it mailed to you 
at no extra charge. 


Amount 


1. New APPLE II REFERENCE MANUAL - $17.00 each 


2 . 


PROGRAM DISKETTES 

Members: $5.00 picked up at meeting 

$7.00 mailed to you... 

Non-members: $8.00 per disk picked up at meeting 
$10.00 mailed to you... 


Volume 1 Utilities I 
Volume 2 Utilities II 
Volume 3 Games I 
Volume 4 Games II 
Volume 5 Games III 
Volume 6 Games IV 
Volume 7 Games V 
Volume 8 Utilities III 
Volume 9 Educational I 
Volume 10 Math/ Science 
Volume ll Graphics I 
Volume 12 Games VI 
Volume 13 Games 
Volume 14 IAC Utilities IV 
Volume 15 Games VII 
Volume 16 Utilities V 
Volume 17 Graphics II 
Volume 18 Educational II 
Volume 19 Commumications 
Volume 20 Music 
Volume 21 Apple Orchard 



Volume 22 Utilities VI 
Volume 23 Games VIII 
Volume 24 Games IX 
Volume 28 Planetfinder 
Volume 180 Dungeon Designer 
Volume 181 Beginner’s Cave 
♦Volume 182 Lair of Minotaur 
♦Volume 183 Cave of the Mind 
♦Volume 184 Zyphur Riverventure 
♦Volume 185 Castle of Doom 
♦Volume 186 Death Star 
♦Volume 187 Devil's Tomb 



♦Vol. 181 required with these 
disks. 


TOTAL ORDER = $ 

Check here if you want these shipped 

NAME 

ADDRESS 

CITY, STATE, ZIP 

TELEPHONE 

Membership No. (1st three digits after WAP on mailing label) — 

Make checks payable to "Washington Apple Pi" 

Send order to: Washington Apple Pi- ATTN: Librarian 

PO Box 34511 
Washington, DC 20034 




□□mPUTER CRRFTERS 


11246 Georgia Avenue 
Wheaion, Maryland 20902 



Tel: 301-933-5820 


DID YOU KNOW THERE IS AN 
APPLE STORE IN 
WHEATON MARYLAND? 

COMPUTER GRAFTERS OF WHEATON 

■" APPLE Computers are our specialty 

— Most desirable items always in stock 
— We represent over 40 manufacturers 

of Apple and Apple related products. 

— Large Assortment of Books and Magazines 
— Friendly, Knowlegdeable Atmosphere 

— Family Run Business 

Stop in and say; hello to Gary , Ken or Betty 

M-W 11:00 to 6:00 PM 
TH-F 11:00 to 9:00 PM 
Sat 11:00 to 6:00 PM 




